1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
use Test::More tests => 7;
use HTML::HTML5::Entities qw[
encode_entities decode_entities _decode_entities %entity2char
];
is(decode_entities('&'), '&', 'decode_entities works');
is(decode_entities('a&b'), 'a&b', 'non-entities passed though');
is(decode_entities('a&b'), 'a&b', 'numeric entity decoded');
is(decode_entities('a&b'), 'a&b', 'sloppy entities decoded');
my $var = '&';
decode_entities($var);
is($var, '&', 'in-place decoding works');
$var = 'f&ck';
_decode_entities($var, \%entity2char, 1);
is($var, 'f&ck', 'expand_prefix works');
$var = 'f&ck';
_decode_entities($var, \%entity2char, 0);
is($var, 'f&ck', 'expand_prefix can be disabled');
|
