1272343Sngie#!perl 2272343Sngie# 3272343Sngie# test apparatus for Text::Template module 4272343Sngie# still incomplete. 5272343Sngie 6272343Sngieuse strict; 7272343Sngieuse warnings; 8272343Sngieuse Test::More tests => 6; 9272343Sngie 10272343Sngieuse_ok 'Text::Template' or exit 1; 11272343Sngie 12272343Sngie# (1-2) Missing source 13272343Sngieeval { 14272343Sngie Text::Template->new(); 15272343Sngie pass; 16272343Sngie}; 17272343Sngie 18272343Sngielike $@, qr/^\QUsage: Text::Template::new(TYPE => ..., SOURCE => ...)/; 19272343Sngie 20272343Sngieeval { Text::Template->new(TYPE => 'FILE'); }; 21272343Sngielike $@, qr/^\QUsage: Text::Template::new(TYPE => ..., SOURCE => ...)/; 22272343Sngie 23272343Sngie# (3) Invalid type 24272343Sngieeval { Text::Template->new(TYPE => 'wlunch', SOURCE => 'fish food'); }; 25272343Sngielike $@, qr/^\QIllegal value `WLUNCH' for TYPE parameter/; 26272343Sngie 27272343Sngie# (4-5) File does not exist 28272343Sngiemy $o = Text::Template->new( 29272343Sngie TYPE => 'file', 30272343Sngie SOURCE => 'this file does not exist'); 31272343Sngieok !defined $o; 32272343Sngie 33272343Sngieok defined($Text::Template::ERROR) 34272343Sngie && $Text::Template::ERROR =~ /^Couldn't open file/; 35272343Sngie