# -*- Mode: Perl; -*-
+=head1 NAME
+
+2_fill_11_target.t - Test CGI::Ex::Fill's ability to fill hidden fields
+
+=cut
+
use strict;
-use Test;
-BEGIN { plan tests => 3 }
+use Test::More tests => 4;
-use CGI::Ex;
+use_ok('CGI::Ex::Fill');
my $form = <<EOF;
<FORM name="foo1">
</FORM>
EOF
;
-
+
my %fdat = (
foo1 => 'bar1',
foo2 => 'bar2',
foo3 => 'bar3',
);
-my $fif = new CGI::Ex;
-my $output = $fif->fill(
- scalarref => \$form,
- fdat => \%fdat,
- target => 'foo2',
-);
+my $output = CGI::Ex::Fill::form_fill($form, \%fdat, 'foo2');
my @v = $output =~ m/<input .*?value="(.*?)"/ig;
-ok($v[0], 'nada');
-ok($v[1], 'bar2');
-ok($v[2], 'nada');
+ok($v[0] eq 'nada');
+ok($v[1] eq 'bar2');
+ok($v[2] eq 'nada');