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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
#!perl -w
use strict;
use Test::More;
use Text::Xslate;
my $tx = Text::Xslate->new();
use constant { T => 1, F => 0 };
my @data = (
['<:= $value10 == 10 :>', T],
['<:= $value10 == 20 :>', F],
['<:= $value20 == 10 :>', F],
['<:= $value20 == 20 :>', T],
['<:= $value10 != 10 :>', !T],
['<:= $value10 != 20 :>', !F],
['<:= $value20 != 10 :>', !F],
['<:= $value20 != 20 :>', !T],
['<:= $value10 < 9 :>', F],
['<:= $value10 < 10 :>', F],
['<:= $value10 < 11 :>', T],
['<:= $value10 <= 9 :>', F],
['<:= $value10 <= 10 :>', T],
['<:= $value10 <= 11 :>', T],
['<:= $value10 > 9 :>', T],
['<:= $value10 > 10 :>', F],
['<:= $value10 > 11 :>', F],
['<:= $value10 >= 9 :>', T],
['<:= $value10 >= 10 :>', T],
['<:= $value10 >= 11 :>', F],
['<:= "foo" == "foo" :>', T],
['<:= "foo" == "bar" :>', F],
['<:= "foo" != "foo" :>', F],
['<:= "foo" != "bar" :>', T],
['<:= 3.14 == 3.14 :>', T],
['<:= 3.14 == 3.13 :>', F],
['<:= 3 == 3 :>', T],
['<:= 3 == 2 :>', F],
['<:= "0" == "0E0" :>', F],
['<:= "0" == "" :>', F],
['<:= "foo" == nil :>', F],
['<:= "" == nil :>', F],
['<:= 0 == nil :>', F],
['<:= nil == nil :>', T],
['<:= "foo" != nil :>', T],
['<:= "" != nil :>', T],
['<:= 0 != nil :>', T],
['<:= nil != nil :>', 0],
['<:= "nan" == "nan" :>', T, '"nan" is a normal string'],
);
foreach my $pair(@data) {
my($in, $out) = @$pair;
my %vars = (
value0 => 0,
value10 => 10,
value20 => 20,
);
is !!$tx->render_string($in, \%vars), !!$out or diag $in;
}
done_testing;
|
