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/09-error.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/09-error.t')
-rw-r--r-- | external/perl/Text-Template-1.46/t/09-error.t | 63 |
1 files changed, 0 insertions, 63 deletions
diff --git a/external/perl/Text-Template-1.46/t/09-error.t b/external/perl/Text-Template-1.46/t/09-error.t deleted file mode 100644 index 40f9fac6cb..0000000000 --- a/external/perl/Text-Template-1.46/t/09-error.t +++ /dev/null @@ -1,63 +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..5\n"; -$n = 1; - -# (1-2) Missing source -eval { - Text::Template->new(); -}; -unless ($@ =~ /^\QUsage: Text::Template::new(TYPE => ..., SOURCE => ...)/) { - print STDERR $@; - print "not "; -} -print "ok $n\n"; -$n++; - -eval { - Text::Template->new(TYPE => 'FILE'); -}; -if ($@ =~ /^\QUsage: Text::Template::new(TYPE => ..., SOURCE => ...)/) { - print "ok $n\n"; -} else { - print STDERR $@; - print "not ok $n\n"; -} -$n++; - -# (3) Invalid type -eval { - Text::Template->new(TYPE => 'wlunch', SOURCE => 'fish food'); -}; -if ($@ =~ /^\QIllegal value `WLUNCH' for TYPE parameter/) { - print "ok $n\n"; -} else { - print STDERR $@; - print "not ok $n\n"; -} -$n++; - -# (4-5) File does not exist -my $o = Text::Template->new(TYPE => 'file', - SOURCE => 'this file does not exist'); -print $o ? "not ok $n\n" : "ok $n\n"; -$n++; -print defined($Text::Template::ERROR) - && $Text::Template::ERROR =~ /^Couldn't open file/ - ? "ok $n\n" : "not ok $n\n"; -$n++; - - -exit; - |