1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
#!perl
#
# test apparatus for Text::Template module
# still incomplete.
use strict;
use warnings;
use Test::More tests => 7;
use File::Temp;
use_ok 'Text::Template' or exit 1;
my $tfh = File::Temp->new;
Text::Template->import('fill_in_file', 'fill_in_string');
$Q::n = $Q::n = 119;
# (1) Test fill_in_string
my $out = fill_in_string('The value of $n is {$n}.', PACKAGE => 'Q');
is $out, 'The value of $n is 119.';
# (2) Test fill_in_file
my $TEMPFILE = $tfh->filename;
print $tfh 'The value of $n is {$n}.', "\n";
close $tfh or die "Couldn't write test file: $!; aborting";
$R::n = $R::n = 8128;
$out = fill_in_file($TEMPFILE, PACKAGE => 'R');
is $out, "The value of \$n is 8128.\n";
# (3) Jonathan Roy reported this bug:
open my $ofh, '>', $TEMPFILE or die "Couldn't open test file: $!; aborting";
print $ofh "With a message here? [% \$var %]\n";
close $ofh or die "Couldn't close test file: $!; aborting";
$out = fill_in_file($TEMPFILE,
DELIMITERS => [ '[%', '%]' ],
HASH => { "var" => \"It is good!" });
is $out, "With a message here? It is good!\n";
# (4) It probably occurs in fill_this_in also:
$out = Text::Template->fill_this_in("With a message here? [% \$var %]\n",
DELIMITERS => [ '[%', '%]' ],
HASH => { "var" => \"It is good!" });
is $out, "With a message here? It is good!\n";
# (5) This test failed in 1.25. It was supplied by Donald L. Greer Jr.
# Note that it's different from (1) in that there's no explicit
# package=> argument.
use vars qw($string $foo $r);
$string = 'Hello {$foo}';
$foo = "Don";
$r = fill_in_string($string);
is $r, 'Hello Don';
# (6) This test failed in 1.25. It's a variation on (5)
package Q2;
use Text::Template 'fill_in_string';
use vars qw($string $foo $r);
$string = 'Hello {$foo}';
$foo = "Don";
$r = fill_in_string($string);
package main;
is $Q2::r, 'Hello Don';
|
