diff options
Diffstat (limited to 'external/perl/Text-Template-1.46/t/10-delimiters.t')
-rw-r--r-- | external/perl/Text-Template-1.46/t/10-delimiters.t | 99 |
1 files changed, 0 insertions, 99 deletions
diff --git a/external/perl/Text-Template-1.46/t/10-delimiters.t b/external/perl/Text-Template-1.46/t/10-delimiters.t deleted file mode 100644 index f74d591cc7..0000000000 --- a/external/perl/Text-Template-1.46/t/10-delimiters.t +++ /dev/null @@ -1,99 +0,0 @@ -#!perl -# -# Tests for user-specified delimiter functions -# These tests first appeared in version 1.20. - -use Text::Template; - -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..18\n"; -$n = 1; - -# (1) Try a simple delimiter: <<..>> -# First with the delimiters specified at object creation time -$V = $V = 119; -$template = q{The value of $V is <<$V>>.}; -$result = q{The value of $V is 119.}; -$template1 = Text::Template->new(TYPE => STRING, - SOURCE => $template, - DELIMITERS => ['<<', '>>'] - ) - or die "Couldn't construct template object: $Text::Template::ERROR; aborting"; -$text = $template1->fill_in(); -print +($text eq $result ? '' : 'not '), "ok $n\n"; -$n++; - -# (2) Now with delimiter choice deferred until fill-in time. -$template1 = Text::Template->new(TYPE => STRING, SOURCE => $template); -$text = $template1->fill_in(DELIMITERS => ['<<', '>>']); -print +($text eq $result ? '' : 'not '), "ok $n\n"; -$n++; - -# (3) Now we'll try using regex metacharacters -# First with the delimiters specified at object creation time -$template = q{The value of $V is [$V].}; -$template1 = Text::Template->new(TYPE => STRING, - SOURCE => $template, - DELIMITERS => ['[', ']'] - ) - or die "Couldn't construct template object: $Text::Template::ERROR; aborting"; -$text = $template1->fill_in(); -print +($text eq $result ? '' : 'not '), "ok $n\n"; -$n++; - -# (4) Now with delimiter choice deferred until fill-in time. -$template1 = Text::Template->new(TYPE => STRING, SOURCE => $template); -$text = $template1->fill_in(DELIMITERS => ['[', ']']); -print +($text eq $result ? '' : 'not '), "ok $n\n"; -$n++; - - - -# (5-18) Make sure \ is working properly -# (That is to say, it is ignored.) -# These tests are similar to those in 01-basic.t. -my @tests = ('{""}' => '', # (5) - - # Backslashes don't matter - '{"}"}' => undef, - '{"\\}"}' => undef, # One backslash - '{"\\\\}"}' => undef, # Two backslashes - '{"\\\\\\}"}' => undef, # Three backslashes - '{"\\\\\\\\}"}' => undef, # Four backslashes (10) - '{"\\\\\\\\\\}"}' => undef, # Five backslashes - - # Backslashes are always passed directly to Perl - '{"x20"}' => 'x20', - '{"\\x20"}' => ' ', # One backslash - '{"\\\\x20"}' => '\\x20', # Two backslashes - '{"\\\\\\x20"}' => '\\ ', # Three backslashes (15) - '{"\\\\\\\\x20"}' => '\\\\x20', # Four backslashes - '{"\\\\\\\\\\x20"}' => '\\\\ ', # Five backslashes - '{"\\x20\\}"}' => undef, # (18) - ); - -my $i; -for ($i=0; $i<@tests; $i+=2) { - my $tmpl = Text::Template->new(TYPE => 'STRING', - SOURCE => $tests[$i], - DELIMITERS => ['{', '}'], - ); - my $text = $tmpl->fill_in; - my $result = $tests[$i+1]; - my $ok = (! defined $text && ! defined $result - || $text eq $result); - unless ($ok) { - print STDERR "($n) expected .$result., got .$text.\n"; - } - print +($ok ? '' : 'not '), "ok $n\n"; - $n++; -} - - -exit; - |