diff options
Diffstat (limited to 'external/perl/Text-Template-1.56/t/ofh.t')
-rwxr-xr-x | external/perl/Text-Template-1.56/t/ofh.t | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/external/perl/Text-Template-1.56/t/ofh.t b/external/perl/Text-Template-1.56/t/ofh.t new file mode 100755 index 0000000000..a490e7abe5 --- /dev/null +++ b/external/perl/Text-Template-1.56/t/ofh.t @@ -0,0 +1,33 @@ +#!perl +# +# test apparatus for Text::Template module +# still incomplete. + +use strict; +use warnings; +use Test::More tests => 3; +use File::Temp; + +use_ok 'Text::Template' or exit 1; + +my $template = Text::Template->new( + TYPE => 'STRING', + SOURCE => q{My process ID is {$$}}); + +my $of = File::Temp->new; + +my $text = $template->fill_in(OUTPUT => $of); + +# (1) No $text should have been constructed. Return value should be true. +is $text, '1'; + +close $of or die "close(): $!"; + +open my $ifh, '<', $of->filename or die "open($of): $!"; + +my $t; +{ local $/; $t = <$ifh> } +close $ifh; + +# (2) The text should have been printed to the file +is $t, "My process ID is $$"; |