+++ /dev/null
-#!perl
-#
-# Tests of basic, essential functionality
-#
-
-use Text::Template;
-$X::v = $Y::v = 0; # Suppress `var used only once'
-
-print "1..31\n";
-
-$n=1;
-
-$template_1 = <<EOM;
-We will put value of \$v (which is "abc") here -> {\$v}
-We will evaluate 1+1 here -> {1 + 1}
-EOM
-
-# (1) Construct temporary template file for testing
-# file operations
-$TEMPFILE = "tt$$";
-open(TMP, "> $TEMPFILE") or print "not ok $n\n" && &abort("Couldn\'t write tempfile $TEMPFILE: $!");
-print TMP $template_1;
-close TMP;
-print "ok $n\n"; $n++;
-
-# (2) Build template from file
-$template = new Text::Template ('type' => 'FILE', 'source' => $TEMPFILE);
-if (defined($template)) {
- print "ok $n\n";
-} else {
- print "not ok $n $Text::Template::ERROR\n";
-}
-$n++;
-
-# (3) Fill in template from file
-$X::v = "abc";
-$resultX = <<EOM;
-We will put value of \$v (which is "abc") here -> abc
-We will evaluate 1+1 here -> 2
-EOM
-$Y::v = "ABC";
-$resultY = <<EOM;
-We will put value of \$v (which is "abc") here -> ABC
-We will evaluate 1+1 here -> 2
-EOM
-
-$text = $template->fill_in('package' => X);
-if ($text eq $resultX) {
- print "ok $n\n";
-} else {
- print "not ok $n\n";
-}
-$n++;
-
-# (4) Fill in same template again
-$text = $template->fill_in('package' => Y);
-if ($text eq $resultY) {
- print "ok $n\n";
-} else {
- print "not ok $n\n";
-}
-$n++;
-
-
-
-# (5) Simple test of `fill_this_in'
-$text = Text::Template->fill_this_in( $template_1, 'package' => X);
-if ($text eq $resultX) {
- print "ok $n\n";
-} else {
- print "not ok $n\n";
-}
-$n++;
-
-# (6) test creation of template from filehandle
-if (open (TMPL, "< $TEMPFILE")) {
- $template = new Text::Template ('type' => 'FILEHANDLE',
- 'source' => *TMPL);
- if (defined($template)) {
- print "ok $n\n";
- } else {
- print "not ok $n $Text::Template::ERROR\n";
- }
- $n++;
-
-# (7) test filling in of template from filehandle
- $text = $template->fill_in('package' => X);
- if ($text eq $resultX) {
- print "ok $n\n";
- } else {
- print "not ok $n\n";
- }
- $n++;
-
-# (8) test second fill_in on same template object
- $text = $template->fill_in('package' => Y);
- if ($text eq $resultY) {
- print "ok $n\n";
- } else {
- print "not ok $n\n";
- }
- $n++;
- close TMPL;
-} else {
- print "not ok $n\n"; $n++;
- print "not ok $n\n"; $n++;
- print "not ok $n\n"; $n++;
-}
-
-
-# (9) test creation of template from array
-$template = new Text::Template
- ('type' => 'ARRAY',
- 'source' => [
- 'We will put value of $v (which is "abc") here -> {$v}',
- "\n",
- 'We will evaluate 1+1 here -> {1+1}',
- "\n",
- ]);
-if (defined($template)) {
- print "ok $n\n";
-} else {
- print "not ok $n $Text::Template::ERROR\n";
-}
-$n++;
-
-# (10) test filling in of template from array
-$text = $template->fill_in('package' => X);
-if ($text eq $resultX) {
- print "ok $n\n";
-} else {
- print "not ok $n\n";
-}
-$n++;
-
-# (11) test second fill_in on same array template object
-$text = $template->fill_in('package' => Y);
-if ($text eq $resultY) {
- print "ok $n\n";
-} else {
- print "not ok $n\n";
- print STDERR "$resultX\n---\n$text";
- unless (!defined($text)) { print STDERR "ERROR: $Text::Template::ERROR\n"};
-}
-$n++;
-
-
-
-# (12) Make sure \ is working properly
-# Test added for version 1.11
-my $tmpl = Text::Template->new(TYPE => 'STRING',
- SOURCE => 'B{"\\}"}C{"\\{"}D',
- );
-# This should fail if the \ are not interpreted properly.
-my $text = $tmpl->fill_in();
-print +($text eq "B}C{D" ? '' : 'not '), "ok $n\n";
-$n++;
-
-# (13) Make sure \ is working properly
-# Test added for version 1.11
-$tmpl = Text::Template->new(TYPE => 'STRING',
- SOURCE => qq{A{"\t"}B},
- );
-# Symptom of old problem: ALL \ were special in templates, so
-# The lexer would return (A, PROGTEXT("t"), B), and the
-# result text would be AtB instead of A(tab)B.
-$text = $tmpl->fill_in();
-
-print +($text eq "A\tB" ? '' : 'not '), "ok $n\n";
-$n++;
-
-# (14-27) Make sure \ is working properly
-# Test added for version 1.11
-# This is a sort of general test.
-my @tests = ('{""}' => '', # (14)
- '{"}"}' => undef, # (15)
- '{"\\}"}' => '}', # One backslash
- '{"\\\\}"}' => undef, # Two backslashes
- '{"\\\\\\}"}' => '}', # Three backslashes
- '{"\\\\\\\\}"}' => undef, # Four backslashes
- '{"\\\\\\\\\\}"}' => '\}', # Five backslashes (20)
- '{"x20"}' => 'x20',
- '{"\\x20"}' => ' ', # One backslash
- '{"\\\\x20"}' => '\\x20', # Two backslashes
- '{"\\\\\\x20"}' => '\\ ', # Three backslashes
- '{"\\\\\\\\x20"}' => '\\\\x20', # Four backslashes (25)
- '{"\\\\\\\\\\x20"}' => '\\\\ ', # Five backslashes
- '{"\\x20\\}"}' => ' }', # (27)
- );
-
-my $i;
-for ($i=0; $i<@tests; $i+=2) {
- my $tmpl = Text::Template->new(TYPE => 'STRING',
- SOURCE => $tests[$i],
- );
- 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++;
-}
-
-
-# (28-30) I discovered that you can't pass a glob ref as your filehandle.
-# MJD 20010827
-# (28) test creation of template from filehandle
-if (open (TMPL, "< $TEMPFILE")) {
- $template = new Text::Template ('type' => 'FILEHANDLE',
- 'source' => \*TMPL);
- if (defined($template)) {
- print "ok $n\n";
- } else {
- print "not ok $n $Text::Template::ERROR\n";
- }
- $n++;
-
-# (29) test filling in of template from filehandle
- $text = $template->fill_in('package' => X);
- if ($text eq $resultX) {
- print "ok $n\n";
- } else {
- print "not ok $n\n";
- }
- $n++;
-
-# (30) test second fill_in on same template object
- $text = $template->fill_in('package' => Y);
- if ($text eq $resultY) {
- print "ok $n\n";
- } else {
- print "not ok $n\n";
- }
- $n++;
- close TMPL;
-} else {
- print "not ok $n\n"; $n++;
- print "not ok $n\n"; $n++;
- print "not ok $n\n"; $n++;
-}
-
-# (31) Test _scrubpkg for leakiness
-$Text::Template::GEN0::test = 1;
-Text::Template::_scrubpkg('Text::Template::GEN0');
-if ($Text::Template::GEN0::test) {
- print "not ok $n\n";
-} else {
- print "ok $n\n";
-}
-$n++;
-
-
-END {unlink $TEMPFILE;}
-
-exit;
-
-
-
-
-sub abort {
- unlink $TEMPFILE;
- die $_[0];
-}
projects / openssl.git / blobdiff