# $Id: 13_loop.t 1077 2008-09-01 19:02:06Z tinita $
use Test::More tests => 3;
BEGIN { use_ok('HTML::Template::Compiled') };
use lib 't';
use
HTC_Utils qw($cache $tdir &cdir);
{
my $htc = HTML::Template::Compiled->new(
scalarref => \<<'EOM',
<%set_var FOO value=.root.foo %>
<%= FOO %>
<%include var_include.html %>
EOM
debug => 0,
loop_context_vars => 1,
path => $tdir,
);
$htc->param(
root => {
foo => 23,
},
);
my $out = $htc->output;
$out =~ s/\s+//g;
cmp_ok($out, "eq", "2323", "set_var, use_vars");
#print "out: $out\n";
}
{
eval {
my $htc = HTML::Template::Compiled->new(
scalarref => \<<'EOM',
<%set_var name="foo bar" value=.root %>
EOM
debug => 0,
loop_context_vars => 1,
path => $tdir,
);
};
my $error = $@;
# warn __PACKAGE__.':'.__LINE__.": $error\n";
cmp_ok($error, "=~", ".*Syntax error in <TMPL_\\*>.*", "invalid set_var");
}