mirror of https://github.com/openssl/openssl
81 lines
1.9 KiB
Perl
Executable File
81 lines
1.9 KiB
Perl
Executable File
#!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;
|
|
}
|
|
}
|