summaryrefslogtreecommitdiffstats
path: root/external/perl/Text-Template-1.46/t/06-ofh.t
diff options
context:
space:
mode:
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.t39
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;
-