X-Git-Url: https://git.openssl.org/?p=openssl.git;a=blobdiff_plain;f=external%2Fperl%2FText-Template-1.46%2Ft%2F01-basic.t;fp=external%2Fperl%2FText-Template-1.46%2Ft%2F01-basic.t;h=0000000000000000000000000000000000000000;hp=be43390c67fa923937bbcc20bbdef431b936ec0d;hb=05c9c7b02d3e4e66fc0c0446af1116bd5b19f6dc;hpb=7f4a2dff12f93791e96a284454bdd84a2fa7d29b

diff --git a/external/perl/Text-Template-1.46/t/01-basic.t b/external/perl/Text-Template-1.46/t/01-basic.t
deleted file mode 100644
index be43390c67..0000000000
--- a/external/perl/Text-Template-1.46/t/01-basic.t
+++ /dev/null
@@ -1,266 +0,0 @@
-#!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];
-}