1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
#!perl
#
# test apparatus for Text::Template module
# still incomplete.
use lib '../blib/lib';
use Text::Template;
die "This is the test program for Text::Template version 1.20.
You are using version $Text::Template::VERSION instead.
That does not make sense.\n
Aborting"
unless $Text::Template::VERSION == 1.20;
print "1..2\n";
$n=1;
$template = new Text::Template TYPE => STRING, SOURCE => q{My process ID is {$$}};
$of = "/tmp/template.$$";
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;
|
