blob: 445c60d992670c3c690bb1090fb499751bf38ca2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
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;
}
}
|
