Latest update.

2019-09-21 00:43:47 +09:00
parent 2e57f602ae
commit 62515c7d8d
1131 changed files with 47556 additions and 24957 deletions
@@ -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;
+    }
+}