# -*- Mode: Perl; -*-
#!/usr/bin/perl -w
# emits warnings for HTML::FIF <= 0.22
use CGI qw(:no_debug);
use HTML::FillInForm;
use Test;
BEGIN { plan tests => 1 }
local $/;
my $html = qq{<input type="submit" value="Commit">};
  
my $q = new CGI;
  
$q->param( "name", "John Smith" );
my $fif = new HTML::FillInForm;
my $output = $fif->fill(
                         scalarref => \$html,
                         fobject   => $q
);
ok($html =~ m!<input( type="submit"| value="Commit"){2}>!);