#!perl -w
use strict;
use Test::More;
use t::lib::TTSimple;
my @data = (
[<<'T', 'Xslate' ],
[%- lang -%]
T
[<<'T', <<'X' ],
- [%- lang -%] -
T
- Xslate -
X
[<<'T', <<'X' ],
*
[%- lang -%]
*
T
*Xslate *
X
[<<'T', <<'X' ],
*
[%- lang -%]
*
T
*
Xslate
*
X
[<<'T', <<'X' ],
[%- lang -%]
T
Xslate
X
[<<'T', <<'X' ],
[%- lang -%]
T
Xslate
X
[<<'T', <<'X' ],
[%- lang -%]
T
Xslate
X
[<<'T', <<'X' ],
[%- lang -%]
T
Xslate
X
# http://github.com/gfx/p5-Text-Xslate/issues#issue/12
#['Hello, [%~ "Xslate" ~%] world!', 'Hello,Xslateworld!'],
);
my %vars = (
lang => 'Xslate',
void => '',
value => 10,
);
foreach my $d(@data) {
my($in, $out, $msg) = @$d;
is render_str($in, \%vars), $out, $msg or diag($in);
}
done_testing;