3 # test apparatus for Text::Template module
8 use Test::More tests => 6;
10 use_ok 'Text::Template' or exit 1;
12 # (1-2) Missing source
14 Text::Template->new();
18 like $@, qr/^\QUsage: Text::Template::new(TYPE => ..., SOURCE => ...)/;
20 eval { Text::Template->new(TYPE => 'FILE'); };
21 like $@, qr/^\QUsage: Text::Template::new(TYPE => ..., SOURCE => ...)/;
24 eval { Text::Template->new(TYPE => 'wlunch', SOURCE => 'fish food'); };
25 like $@, qr/^\QIllegal value `WLUNCH' for TYPE parameter/;
27 # (4-5) File does not exist
28 my $o = Text::Template->new(
30 SOURCE => 'this file does not exist');
33 ok defined($Text::Template::ERROR)
34 && $Text::Template::ERROR =~ /^Couldn't open file/;