Dogcows Code - chaz/p5-CGI-Ex/blob - t/2_fill_10_escape.t

   1 # -*- Mode: Perl; -*-
   2
   3 use strict;
   4
   5 print "1..1\n";
   6 use CGI::Ex;
   7
   8 my $html =<<"__HTML__";
   9 <HTML>
  10 <BODY>
  11 <FORM action="test.cgi" method="POST">
  12 <INPUT type="hidden" name="hidden" value="&gt;&quot;">
  13 <INPUT type="text" name="text" value="&lt;&gt;&quot;&otilde;"><BR>
  14 <INPUT type="radio" name="radio" value="&quot;&lt;&gt;">test<BR>
  15 <INPUT type="checkbox" name="checkbox" value="&quot;&lt;&gt;">test<BR>
  16 <INPUT type="checkbox" name="checkbox" value="&quot;&gt;&lt;&gt;">test<BR>
  17 <SELECT name="select">
  18 <OPTION value="&lt;&gt;">&lt;&gt;
  19 <OPTION value="&gt;&gt;">&gt;&gt;
  20 <OPTION value="&otilde;">&lt;&lt;
  21 <OPTION>&gt;&gt;&gt;
  22 </SELECT><BR>
  23 <TEXTAREA name="textarea" rows="5">&lt;&gt;&quot;</TEXTAREA><P>
  24 <INPUT type="submit" value=" OK ">
  25 </FORM>
  26 </BODY>
  27 </HTML>
  28 __HTML__
  29
  30 my %fdat = ();
  31
  32 my $fif = CGI::Ex->new;
  33 my $output = $fif->fill(scalarref => \$html,
  34                         fdat => \%fdat);
  35
  36 # FIF changes order of HTML attributes, so split strings and sort
  37 my $strings_output = join("\n", sort split(/[\s><]+/, lc($output)));
  38 my $strings_html = join("\n", sort split(/[\s><]+/, lc($html)));
  39
  40 unless ($strings_output eq $strings_html){
  41         print "not ";
  42 }
  43 print "ok 1";