# -*- Mode: Perl; -*-
use Test::More 'no_plan';
use strict;
use HTML::FillInForm;
my $html =<<"__HTML__";
<HTML>
<BODY>
<FORM action="test.cgi" method="POST">
<INPUT type="hidden" name="hidden" value=">"">
<INPUT type="text" name="text" value="<>"õ"><BR>
<INPUT type="radio" name="radio" value=""<>">test<BR>
<INPUT type="checkbox" name="checkbox" value=""<>">test<BR>
<INPUT type="checkbox" name="checkbox" value=""><>">test<BR>
<SELECT name="select">
<OPTION value="<>"><>
<OPTION value=">>">>>
<OPTION value="õ"><<
<OPTION>>>>
</SELECT><BR>
<TEXTAREA name="textarea" rows="5"><>"</TEXTAREA><P>
<INPUT type="submit" value=" OK ">
</FORM>
</BODY>
</HTML>
__HTML__
my %fdat = ();
my $output = HTML::FillInForm->fill( \$html, \%fdat);
# FIF changes order of HTML attributes, so split strings and sort
my $strings_output = join("\n", sort split(/[\s><]+/, lc($output)));
my $strings_html = join("\n", sort split(/[\s><]+/, lc($html)));
is($strings_output,$strings_html);