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
|
#!perl -w
use strict;
use Test::More;
use Text::Xslate;
my %vpath = (
);
my $tx = Text::Xslate->new(
cache => 0,
path => \%vpath,
verbose => 2,
warn_handler => sub { die @_ },
);
is $tx->render_string(<<'T'), <<'X';
: for [42] -> $it {
* <:$it:>
: }
: else {
nothing
: }
T
* 42
X
is $tx->render_string(<<'T'), <<'X';
: for [] -> $it {
* <:$it:>
: }
: else {
nothing
: }
T
nothing
X
is $tx->render_string(<<'T'), <<'X';
: for nil -> $it {
* <:$it:>
: }
: else {
nothing
: }
T
nothing
X
done_testing;
|
