diff options
Diffstat (limited to 'external/perl/Text-Template-1.46/t/08-exported.t')
-rw-r--r-- | external/perl/Text-Template-1.46/t/08-exported.t | 75 |
1 files changed, 0 insertions, 75 deletions
diff --git a/external/perl/Text-Template-1.46/t/08-exported.t b/external/perl/Text-Template-1.46/t/08-exported.t deleted file mode 100644 index ef9cfafdee..0000000000 --- a/external/perl/Text-Template-1.46/t/08-exported.t +++ /dev/null @@ -1,75 +0,0 @@ -#!perl -# -# test apparatus for Text::Template module -# still incomplete. - -use Text::Template 'fill_in_file', 'fill_in_string'; - -die "This is the test program for Text::Template version 1.46. -You are using version $Text::Template::VERSION instead. -That does not make sense.\n -Aborting" - unless $Text::Template::VERSION == 1.46; - -print "1..6\n"; - -$n=1; -$Q::n = $Q::n = 119; - -# (1) Test fill_in_string -$out = fill_in_string('The value of $n is {$n}.', PACKAGE => 'Q' ); -print +($out eq 'The value of $n is 119.' ? '' : 'not '), "ok $n\n"; -$n++; - -# (2) Test fill_in_file -$TEMPFILE = "tt$$"; -open F, "> $TEMPFILE" or die "Couldn't open test file: $!; aborting"; -print F 'The value of $n is {$n}.', "\n"; -close F or die "Couldn't write test file: $!; aborting"; -$R::n = $R::n = 8128; - -$out = fill_in_file($TEMPFILE, PACKAGE => 'R'); -print +($out eq "The value of \$n is 8128.\n" ? '' : 'not '), "ok $n\n"; -$n++; - -# (3) Jonathan Roy reported this bug: -open F, "> $TEMPFILE" or die "Couldn't open test file: $!; aborting"; -print F "With a message here? [% \$var %]\n"; -close F or die "Couldn't close test file: $!; aborting"; -$out = fill_in_file($TEMPFILE, DELIMITERS => ['[%', '%]'], - HASH => { "var" => \"It is good!" }); -print +($out eq "With a message here? It is good!\n" ? '' : 'not '), "ok $n\n"; -$n++; - -# (4) It probably occurs in fill_this_in also: -$out = - Text::Template->fill_this_in("With a message here? [% \$var %]\n", - DELIMITERS => ['[%', '%]'], - HASH => { "var" => \"It is good!" }); -print +($out eq "With a message here? It is good!\n" ? '' : 'not '), "ok $n\n"; -$n++; - -# (5) This test failed in 1.25. It was supplied by Donald L. Greer Jr. -# Note that it's different from (1) in that there's no explicit -# package=> argument. -use vars qw($string $foo $r); -$string='Hello {$foo}'; -$foo="Don"; -$r = fill_in_string($string); -print (($r eq 'Hello Don' ? '' : 'not '), 'ok ', $n++, "\n"); - -# (6) This test failed in 1.25. It's a variation on (5) -package Q2; -use Text::Template 'fill_in_string'; -use vars qw($string $foo $r); -$string='Hello {$foo}'; -$foo="Don"; -$r = fill_in_string($string); -print (($r eq 'Hello Don' ? '' : 'not '), 'ok ', $main::n++, "\n"); - -package main; - -END { $TEMPFILE && unlink $TEMPFILE } - -exit; - |