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
|
#!perl -T
use strict;
use warnings;
use Test::More;
use Tenjin;
my $t = Tenjin->new({ path => ['t/data/utils'] });
ok($t, 'Got a proper Tenjin instance');
# the encode_url method
is(
$t->render('encode_url.html', { url => "http://www.google.com/search?q=tenjin&ie=utf-8&oe=utf-8&aq=t" }),
"http%3A//www.google.com/search%3Fq%3Dtenjin%26ie%3Dutf-8%26oe%3Dutf-8%26aq%3Dt",
'encode_url() works'
);
# the escape_xml() and unescape_xml() methods
is(
$t->render('escape_xml.html', {
escape => "<a href=\"http://localhost:3000/?key=value&value=key\">test\"test</a>",
unescape => "<a href=\"http://localhost:3000/?key=value&value=key\">test"test</a>"
}),
"<a href="http://localhost:3000/?key=value&value=key">test"test</a>\n<a href=\"http://localhost:3000/?key=value&value=key\">test\"test</a>",
'(un)escape_xml() works'
);
# the p() and P() methods
is(
$t->render('pP.html', { p => "whaddup?", P => "encode & me" }),
"<`#whaddup?#`>\n<`\$encode & me\$`>",
'p() and P() work'
);
done_testing();
|
