Editing: ofh.t
#!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 $$";
Save
Back