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
|
#!perl -w
use strict;
use Test::More;
use Text::Xslate;
my $tx = Text::Xslate->new(
function => {
'array::count' => sub {
my($a, $cb) = @_;
return scalar grep { $cb->($_) } @{$a};
},
},
);
my @data = (
[<<'T', <<'X'],
: macro upper50 -> $x { $x >= 50 }
<: $a.count(upper50) :>
T
50
X
[<<'T', <<'X'],
<: $a.count(-> $x { $x >= 0 }) :>
<: $a.count(-> $x { $x >= 50 }) :>
<: $a.count(-> $x { $x >= 100 }) :>
<: $a.count(-> $x { $x == nil }) :>
<: $a.count(-> $x { $x == 42 }) :>
T
100
50
0
0
1
X
);
my %vars = (
a => [ 0 .. 99 ],
);
foreach my $d(@data) {
my($in, $out, $msg) = @$d;
is $tx->render_string($in, \%vars), $out, $msg
or diag $in;
}
done_testing;
|
