1#!perl 2# 3# test apparatus for Text::Template module 4# still incomplete. 5 6use strict; 7use warnings; 8use Test::More tests => 3; 9use File::Temp; 10 11use_ok 'Text::Template' or exit 1; 12 13my $template = Text::Template->new( 14 TYPE => 'STRING', 15 SOURCE => q{My process ID is {$$}}); 16 17my $of = File::Temp->new; 18 19my $text = $template->fill_in(OUTPUT => $of); 20 21# (1) No $text should have been constructed. Return value should be true. 22is $text, '1'; 23 24close $of or die "close(): $!"; 25 26open my $ifh, '<', $of->filename or die "open($of): $!"; 27 28my $t; 29{ local $/; $t = <$ifh> } 30close $ifh; 31 32# (2) The text should have been printed to the file 33is $t, "My process ID is $$"; 34