Commit | Line | Data |
f49292d9 |
1 | use strictures 1; |
2 | use Test::More; |
3 | use HTML::String::TT; |
4 | |
5 | my $tt = HTML::String::TT->new; |
6 | |
7 | sub do_tt { |
8 | my $output; |
9 | $tt->process(\$_[0], $_[1], \$output) or die $tt->error; |
10 | return "$output"; |
11 | } |
12 | |
13 | is( |
14 | do_tt('<tag>[% foo %]</tag>', { foo => 'Hi <bob>' }), |
15 | '<tag>Hi <bob></tag>', |
16 | ); |
17 | |
18 | is( |
19 | do_tt(q{[% |
20 | VIEW myview; BLOCK render; '<tag>'; foo; '</tag>'; END; END; |
21 | myview.include('render'); |
22 | %]}, { foo => 'Hi <bob>' }), |
23 | '<tag>Hi <bob></tag>', |
24 | ); |
25 | |
51eaef0b |
26 | is( |
27 | do_tt('<tag>[% foo | no_escape %]</tag>', { foo => 'Hi <bob>' }), |
28 | '<tag>Hi <bob></tag>', |
29 | ); |
30 | |
f49292d9 |
31 | done_testing; |