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
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
|
#!perl -w
use strict;
use Test::More;
use Text::Xslate::Util qw(
literal_to_value
value_to_literal
read_around
html_builder
uri_escape
html_escape
mark_raw
unmark_raw
);
my @set = (
[ q{"foo\\\\template"}, q{foo\template} ],
[ q{"Hello, world\n"}, qq{Hello, world\n} ],
[ q{"Hello, world\r"}, qq{Hello, world\r} ],
[ q{"Hello, world\t"}, qq{Hello, world\t} ],
[ q{'Hello, world\n'}, q{Hello, world\n} ],
[ q{'Hello, world\r'}, q{Hello, world\r} ],
[ q{'Hello, world\t'}, q{Hello, world\t} ],
[ q{foobar}, q{foobar} ],
[ q{foo_bar}, q{foo_bar} ],
[ q{010}, 010 ],
[ q{0x10}, 0x10 ],
[ q{0b10}, 0b10 ],
[ q{-010}, -010 ],
[ q{-0x10}, -0x10 ],
[ q{-0b10}, -0b10 ],
[ q{+010}, +010 ],
[ q{+0x10}, +0x10 ],
[ q{+0b10}, +0b10 ],
[ q{010_10}, 010_10 ],
[ q{0x10_10}, 0x10_10 ],
[ q{0b10_10}, 0b10_10 ],
[ q{0xDeadBeef}, 0xDeadBeef ],
[ q{"+10"}, "+10" ],
[ q{"+10.0"}, "+10.0" ],
[ q{"-10"}, "-10" ],
[ q{"-10.0"}, "-10.0" ],
[ q{"01"}, "01" ],
[ q{"00"}, "00" ],
[ q{"010"}, "010" ],
[q{'test="test"'},q{test="test"}],
[q{"test='test'"},q{test='test'}],
);
foreach my $d(@set) {
my($in, $out) = @{$d};
my $v = literal_to_value($in);
is $v, $out, "literal: $in";
is literal_to_value(value_to_literal($v)), $out;
}
# 0 must be a number
is value_to_literal( '0'), q{0};
is value_to_literal( '1'), q{1};
is value_to_literal('10'), q{10};
is value_to_literal('00'), q{"00"};
is value_to_literal('01'), q{"01"};
# other utils
is read_around(__FILE__, 1), <<'X', 'read_around';
#!perl -w
use strict;
X
is read_around(__FILE__, 1, 2), <<'X', 'read_around';
#!perl -w
use strict;
use Test::More;
X
#foo
#bar
#baz
is read_around(__FILE__, __LINE__ - 2), <<'X', 'read_around';
#foo
#bar
#baz
X
is read_around(__FILE__ . "__unlikely__", 1), <<'X', 'read_around';
X
is read_around(undef, undef), <<'X', 'read_around';
X
# html escaping
is mark_raw('<Xslate>'), '<Xslate>', "raw strings can be stringified";
cmp_ok mark_raw('<Xslate>'), 'eq', '<Xslate>', "raw strings are comparable";
is unmark_raw('<Xslate>'), '<Xslate>';
cmp_ok unmark_raw('<Xslate>'), 'eq', '<Xslate>';
is html_escape(q{ & ' " < > }), qq{ & ' " < > }, 'html_escape()'; # '
is html_escape('<Xslate>'), '<Xslate>', 'html_escape()';
is html_escape(html_escape('<Xslate>')), '<Xslate>', 'duplicated html_escape()';
{ # for MAGICs
local $1;
"<foo>" =~ /(.+)/;
is html_escape($1), '<foo>', 'html_escape($1)';
}
my $hb = html_builder { "<br />" };
is $hb->(), "<br />";
$hb = html_builder {
my($x, $y) = @_;
return sprintf "<%d>", $x + $y;
};
is $hb->(1, 2), "<3>";
$hb = html_builder {
my($x, $y) = @_;
return sprintf "%s%s", html_escape($x), html_escape($y);
};
is $hb->('<br>', mark_raw('<br>')), "<br><br>";
# uri_escape
is uri_escape(undef), undef;
is uri_escape(""), "";
is uri_escape("abc"), "abc";
is uri_escape("\0foo\0"), "%00foo%00";
# it encodes the arg as UTF-8 if perl string is passed
is uri_escape(qq{"Camel" is \x{99F1}\x{99DD} in Japanese}),
q{%22Camel%22%20is%20%E9%A7%B1%E9%A7%9D%20in%20Japanese};
# it doesn't touch the encoding of the arg if byte stream is passed
is uri_escape("\xE9p\xE9k"), q{%E9p%E9k}; # "camel" in Japanese kanji (Shift_JIS)
is uri_escape("AZaz09-._~"), "AZaz09-._~";
is uri_escape(q{'foo'}), '%27foo%27';
is uri_escape(q{"bar"}), '%22bar%22';
my $x = 'foo/bar';
is uri_escape($x), 'foo%2Fbar';
is $x, 'foo/bar';
{ # for MAGICs
local $1;
$x =~ /(.+)/;
is uri_escape($1), 'foo%2Fbar', 'uri_escape($1)';
}
done_testing;
|
