8 my $html =<<"__HTML__";
11 <FORM action="test.cgi" method="POST">
12 <INPUT type="hidden" name="hidden" value=">"">
13 <INPUT type="text" name="text" value="<>"õ"><BR>
14 <INPUT type="radio" name="radio" value=""<>">test<BR>
15 <INPUT type="checkbox" name="checkbox" value=""<>">test<BR>
16 <INPUT type="checkbox" name="checkbox" value=""><>">test<BR>
17 <SELECT name="select">
18 <OPTION value="<>"><>
19 <OPTION value=">>">>>
20 <OPTION value="õ"><<
23 <TEXTAREA name="textarea" rows="5"><>"</TEXTAREA><P>
24 <INPUT type="submit" value=" OK ">
32 my $fif = CGI::Ex->new;
33 my $output = $fif->fill(scalarref => \$html,
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)));
40 unless ($strings_output eq $strings_html){