/home/.cpan/build/Text-Template-1.61-0/t
Edit: /home/.cpan/build/Text-Template-1.61-0/t/ofh.t (665B)
#!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 $$";