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