t/15-escape.t

   1 use strict;
   2
   3 use Test::More tests => 6;
   4
   5 BEGIN { use_ok('PLP::Functions', 1.01) }
   6
   7 # EscapeHTML
   8
   9 is(
  10         EscapeHTML(qq{\t<a  test="'&'"/>\n}),
  11         "\t&lt;a  test=&quot;'&amp;'&quot;/&gt;\n",
  12         'EscapeHTML'
  13 );
  14
  15 is(
  16         EscapeHTML(undef),
  17         undef,
  18         'EscapeHTML undef'
  19 );
  20
  21 is(
  22         eval { EscapeHTML('output', '') },
  23         undef,
  24         'EscapeHTML parameters'
  25 );
  26
  27 is(
  28         eval { my $val = qq{  ><"\n}; EscapeHTML($val); $val },
  29         "  &gt;&lt;&quot;\n",
  30         'EscapeHTML replace'
  31 );
  32
  33 is(
  34         eval { EscapeHTML('output'); return 'no error' },
  35         undef,
  36         'EscapeHTML read-only modification'
  37 );
  38