lib/CGI/t/unescapeHTML.t

   1 use lib 't/lib';
   2 use Test::More 'no_plan';
   3 use CGI 'unescapeHTML';
   4
   5 is( unescapeHTML( '&amp;'), '&', 'unescapeHTML: &');
   6 is( unescapeHTML( '&quot;'), '"', '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 }