5 # emits warnings for HTML::FIF <= 0.22
11 BEGIN { plan tests => 1 }
14 my $html = qq{<input type="submit" value="Commit">};
18 $q->param( "name", "John Smith" );
19 my $fif = new CGI::Ex;
20 my $output = $fif->fill(
25 ok($html =~ m!<input( type="submit"| value="Commit"){2}>!);