Name	Size	Mode	Actions
author-pod-syntax.t	300	0644	editdlrm
author-signature.t	431	0644	editdlrm
basic.t	5314	0755	editdlrm
broken.t	1611	0755	editdlrm
delimiters.t	2803	0755	editdlrm
error.t	808	0755	editdlrm
exported.t	1861	0755	editdlrm
hash.t	2682	0755	editdlrm
inline-comment.t	322	0755	editdlrm
nested-tags.t	566	0755	editdlrm
ofh.t	665	0755	editdlrm
out.t	1086	0755	editdlrm
prepend.t	1927	0755	editdlrm
preprocess.t	1285	0755	editdlrm
rt29928.t	553	0755	editdlrm
safe.t	3832	0755	editdlrm
safe2.t	2568	0755	editdlrm
safe3.t	1935	0755	editdlrm
strict.t	1264	0755	editdlrm
taint.t	3431	0750	editdlrm
template-encoding.t	944	0755	editdlrm
warnings.t	1282	0755	editdlrm

#!perl # # test apparatus for Text::Template module # still incomplete. use strict; use warnings; use Test::More tests => 6; use_ok 'Text::Template' or exit 1; # (1-2) Missing source eval { Text::Template->new(); pass; }; like $@, qr/^\QUsage: Text::Template::new(TYPE => ..., SOURCE => ...)/; eval { Text::Template->new(TYPE => 'FILE'); }; like $@, qr/^\QUsage: Text::Template::new(TYPE => ..., SOURCE => ...)/; # (3) Invalid type eval { Text::Template->new(TYPE => 'wlunch', SOURCE => 'fish food'); }; like $@, qr/^\QIllegal value `WLUNCH' for TYPE parameter/; # (4-5) File does not exist my $o = Text::Template->new( TYPE => 'file', SOURCE => 'this file does not exist'); ok !defined $o; ok defined($Text::Template::ERROR) && $Text::Template::ERROR =~ /^Couldn't open file/;