diff options
author | Richard Levitte <levitte@openssl.org> | 2019-09-09 12:49:15 +0200 |
---|---|---|
committer | Richard Levitte <levitte@openssl.org> | 2019-09-12 12:53:32 +0200 |
commit | 05c9c7b02d3e4e66fc0c0446af1116bd5b19f6dc (patch) | |
tree | 8672ddf47c4840a1b4ec1481074bd8f3f77af51f /external/perl/Text-Template-1.46/t/06-ofh.t | |
parent | 7f4a2dff12f93791e96a284454bdd84a2fa7d29b (diff) |
Update the bundled external perl module Text-Template to version 1.56
Fixes #9287
Reviewed-by: Matt Caswell <matt@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/9828)
Diffstat (limited to 'external/perl/Text-Template-1.46/t/06-ofh.t')
-rw-r--r-- | external/perl/Text-Template-1.46/t/06-ofh.t | 39 |
1 files changed, 0 insertions, 39 deletions
diff --git a/external/perl/Text-Template-1.46/t/06-ofh.t b/external/perl/Text-Template-1.46/t/06-ofh.t deleted file mode 100644 index 6865ad1945..0000000000 --- a/external/perl/Text-Template-1.46/t/06-ofh.t +++ /dev/null @@ -1,39 +0,0 @@ -#!perl -# -# test apparatus for Text::Template module -# still incomplete. - -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..2\n"; - -$n=1; - -$template = new Text::Template TYPE => STRING, SOURCE => q{My process ID is {$$}}; -$of = "t$$"; -END { unlink $of } -open O, "> $of" or die; - -$text = $template->fill_in(OUTPUT => \*O); - -# (1) No $text should have been constructed. Return value should be true. -print +($text eq '1' ? '' : 'not '), "ok $n\n"; -$n++; - -close O or die; -open I, "< $of" or die; -{ local $/; $t = <I> } -close I; - -# (2) The text should have been printed to the file -print +($t eq "My process ID is $$" ? '' : 'not '), "ok $n\n"; -$n++; - -exit; - |