5 2_fill_13_warning.t - Check for no warning on a special case - I can't remember what it was though
10 use Test::More tests => 2;
12 # emits warnings for HTML::FIF <= 0.22
14 use_ok('CGI::Ex::Fill');
17 skip("CGI.pm not found", 1) if ! eval { require CGI };
18 CGI->import(':no_debug');
21 my $html = qq{<input type="submit" value="Commit">};
25 $q->param( "name", "John Smith" );
26 my $output = CGI::Ex::Fill::form_fill($html, $q);
28 ok($html =~ m!<input( type="submit"| value="Commit"){2}>!);