From aa4d426b4d3527d7e166df1a05058c9a4a0f6683 Mon Sep 17 00:00:00 2001 From: Wojtek Kosior Date: Fri, 30 Apr 2021 00:33:56 +0200 Subject: initial/final commit --- .../external/perl/Text-Template-1.46/t/01-basic.t | 266 +++++++++++++++++++++ 1 file changed, 266 insertions(+) create mode 100644 openssl-1.1.0h/external/perl/Text-Template-1.46/t/01-basic.t (limited to 'openssl-1.1.0h/external/perl/Text-Template-1.46/t/01-basic.t') diff --git a/openssl-1.1.0h/external/perl/Text-Template-1.46/t/01-basic.t b/openssl-1.1.0h/external/perl/Text-Template-1.46/t/01-basic.t new file mode 100644 index 0000000..be43390 --- /dev/null +++ b/openssl-1.1.0h/external/perl/Text-Template-1.46/t/01-basic.t @@ -0,0 +1,266 @@ +#!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 = < {\$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 = < abc +We will evaluate 1+1 here -> 2 +EOM +$Y::v = "ABC"; +$resultY = < 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]; +} -- cgit v1.2.3