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