ikan Uploader :
Directory : /home/ubuntu/node-v16.18.1/deps/openssl/openssl/external/perl/Text-Template-1.46/t/
Upload File : |
| Current File : //home/ubuntu/node-v16.18.1/deps/openssl/openssl/external/perl/Text-Template-1.46/t/06-ofh.t |
#!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;
Kontol Shell Bypass