mirror of
https://github.com/CloverHackyColor/CloverBootloader.git
synced 2024-12-04 13:23:26 +01:00
34 lines
665 B
Perl
34 lines
665 B
Perl
|
#!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 $$";
|