5 2_fill_10_escape.t - Make sure CGI::Ex::Fill works with escaped values.
10 use Test::More tests => 2;
12 use_ok('CGI::Ex::Fill');
14 my $html =<<"__HTML__";
17 <FORM action="test.cgi" method="POST">
18 <INPUT type="hidden" name="hidden" value=">"">
19 <INPUT type="text" name="text" value="<>"õ"><BR>
20 <INPUT type="radio" name="radio" value=""<>">test<BR>
21 <INPUT type="checkbox" name="checkbox" value=""<>">test<BR>
22 <INPUT type="checkbox" name="checkbox" value=""><>">test<BR>
23 <SELECT name="select">
24 <OPTION value="<>"><>
25 <OPTION value=">>">>>
26 <OPTION value="õ"><<
29 <TEXTAREA name="textarea" rows="5"><>"</TEXTAREA><P>
30 <INPUT type="submit" value=" OK ">
38 my $output = CGI::Ex::Fill::form_fill($html,
41 # FIF changes order of HTML attributes, so split strings and sort
42 my $strings_output = join("\n", sort split(/[\s><]+/, lc($output)));
43 my $strings_html = join("\n", sort split(/[\s><]+/, lc($html)));
45 ok($strings_output eq $strings_html,