blob: fc0f750f0cd2cf2ccfbd5fb4c8b1f97f09e9a20f (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
use lib 't/lib';
use Test::More 'no_plan';
use CGI 'unescapeHTML';
is( unescapeHTML( '&'), '&', 'unescapeHTML: &');
is( unescapeHTML( '"'), '"', 'unescapeHTML: "');
TODO: {
local $TODO = 'waiting on patch. Reference: https://rt.cpan.org/Ticket/Display.html?id=39122';
is( unescapeHTML( 'Bob & Tom went to the store; Where did you go?'),
'Bob & Tom went to the store; Where did you go?', 'unescapeHTML: a case where &...; should not be escaped.');
}
|
