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