# -*- Mode: Perl; -*-
=head1 NAME
2_fill_13_warning.t - Check for no warning on a special case - I can't remember what it was though
=cut
use strict;
use Test::More tests => 2;
# emits warnings for HTML::FIF <= 0.22
use_ok('CGI::Ex::Fill');
SKIP: {
skip("CGI.pm not found", 1) if ! eval { require CGI };
CGI->import(':no_debug');
local $/;
my $html = qq{};
my $q = CGI->new;
$q->param( "name", "John Smith" );
my $output = CGI::Ex::Fill::form_fill($html, $q);
ok($html =~ m!!);
};