3 use Test::More tests => 6;
5 BEGIN { use_ok('PLP::Functions', 1.01) }
10 EscapeHTML(qq{\t<a test="'&'"/>\n}),
11 "\t<a test="'&'"/>\n",
22 eval { EscapeHTML('output', '') },
24 'EscapeHTML parameters'
28 eval { my $val = qq{ ><"\n}; EscapeHTML($val); $val },
34 eval { EscapeHTML('output'); return 'no error' },
36 'EscapeHTML read-only modification'