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
69
70
71
72
73
74
75
76
|
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl HTML-Template-Compiled.t'
# $Id: 08_global_vars.t 1092 2009-07-11 15:37:48Z tinita $
use Test::More tests => 4;
BEGIN { use_ok('HTML::Template::Compiled') };
{
my $htc = HTML::Template::Compiled->new(
path => 't/templates',
filehandle => \*DATA,
global_vars => 1,
search_path_on_include => 1,
debug => 0,
case_sensitive => 0,
);
$htc->param(
global => 42,
outer => [
{
loopvar => 'one',
},
{
loopvar => 'two',
global => 23,
},
{
loopvar => 'three',
},
],
);
my $out = $htc->output;
#print $out, $/;
cmp_ok($out, '=~', qr{
loopvar:\ one.*global:\ 42.*\ included:.*
loopvar:\ two.*global:\ 23.*\ included:.*
loopvar:\ three.*global:\ 42.*\ included:.*
}xs, 'global_vars');
cmp_ok($out, "!~", "neverset", "global_vars and unset variable");
}
{
my $htc = HTML::Template::Compiled->new(
global_vars => 2,
scalarref => \<<EOM,
<tmpl_with a>
<tmpl_with b>
<tmpl_var a>
<tmpl_var inner>
<tmpl_var ..c.inner>
</tmpl_with>
</tmpl_with>
EOM
debug => 0,
);
$htc->param(
a => {
b => { inner => 23 },
c => { inner => 42 },
},
);
my $out = $htc->output;
#print "($out)\n";
like($out, qr/^\s+23\s+42\s+$/, "global_vars => 2");
}
__DATA__
global: <tmpl_var global>
<tmpl_loop outer>
loopvar: <tmpl_var loopvar>
global: <tmpl_var global>
included: <tmpl_include include_w_global.htc >
</tmpl_loop>
<tmpl_if neverset>neverset</tmpl_if>
|
