diff options
Diffstat (limited to 'external/perl/Text-Template-1.56/t/safe3.t')
-rwxr-xr-x | external/perl/Text-Template-1.56/t/safe3.t | 80 |
1 files changed, 80 insertions, 0 deletions
diff --git a/external/perl/Text-Template-1.56/t/safe3.t b/external/perl/Text-Template-1.56/t/safe3.t new file mode 100755 index 0000000000..445c60d992 --- /dev/null +++ b/external/perl/Text-Template-1.56/t/safe3.t @@ -0,0 +1,80 @@ +#!perl +# +# test apparatus for Text::Template module + +use strict; +use warnings; +use Test::More; + +unless (eval { require Safe; 1 }) { + plan skip_all => 'Safe.pm is required for this test'; +} +else { + plan tests => 4; +} + +use_ok 'Text::Template' or exit 1; + +# Test the OUT feature with safe compartments + +my $template = q{ +This line should have a 3: {1+2} + +This line should have several numbers: +{ $t = ''; foreach $n (1 .. 20) { $t .= $n . ' ' } $t } +}; + +my $templateOUT = q{ +This line should have a 3: { $OUT = 1+2 } + +This line should have several numbers: +{ foreach $n (1 .. 20) { $OUT .= $n . ' ' } } +}; + +my $c = Safe->new; + +# Build templates from string +$template = Text::Template->new( + type => 'STRING', + source => $template, + SAFE => $c) or die; + +$templateOUT = Text::Template->new( + type => 'STRING', + source => $templateOUT, + SAFE => $c) or die; + +# Fill in templates +my $text = $template->fill_in() + or die; +my $textOUT = $templateOUT->fill_in() + or die; + +# (1) They should be the same +is $text, $textOUT; + +# (2-3) "Joel Appelbaum" <joel@orbz.com> <000701c0ac2c$aed1d6e0$0201a8c0@prime> +# "Contrary to the documentation the $OUT variable is not always +# undefined at the start of each program fragment. The $OUT variable +# is never undefined after it is used once if you are using the SAFE +# option. The result is that every fragment after the fragment that +# $OUT was used in is replaced by the old $OUT value instead of the +# result of the fragment. This holds true even after the +# Text::Template object goes out of scope and a new one is created!" +# +# Also reported by Daini Xie. + +{ + my $template = q{{$OUT = 'x'}y{$OUT .= 'z'}}; + my $expected = "xyz"; + my $s = Safe->new; + my $o = Text::Template->new( + type => 'string', + source => $template); + + for (1 .. 2) { + my $r = $o->fill_in(SAFE => $s); + + is $r, $expected; + } +} |