FM / t

/home/.cpan/build/Text-Template-1.61-0/t/

/home/.cpan/build/Text-Template-1.61-0/t

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

Edit: /home/.cpan/build/Text-Template-1.61-0/t/rt29928.t (553B)

#!perl # # Test for RT Bug 29928 fix # https://rt.cpan.org/Public/Bug/Display.html?id=29928 use strict; use warnings; use Test::More tests => 2; use_ok 'Text::Template::Preprocess' or exit 1; my $tin = q{The value of $foo is: {$foo}.}; sub tester { 1; # dummy preprocessor to cause the bug described. } my $tmpl1 = Text::Template::Preprocess->new(TYPE => 'STRING', SOURCE => $tin); $tmpl1->compile; my $t1 = $tmpl1->fill_in( HASH => { foo => 'things' }, PREPROCESSOR => \&tester); is $t1, 'The value of $foo is: things.';