1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
# -*- Mode: Perl; -*-
use strict;
use Test;
BEGIN { plan tests => 8 }
use HTML::FillInForm;
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>
<FORM id="foo4">
<INPUT TYPE="TEXT" NAME="foo4" value="nada">
</FORM>
EOF
;
my %fdat = (
foo1 => 'bar1',
foo2 => 'bar2',
foo3 => 'bar3',
foo4 => 'bar4',
);
my $output = HTML::FillInForm->fill( \$form, \%fdat,
target => 'foo2',
);
my @v = $output =~ m/<input .*?value="(.*?)"/ig;
ok($v[0], 'nada');
ok($v[1], 'bar2');
ok($v[2], 'nada');
ok($v[3], 'nada');
my $output2 = HTML::FillInForm->fill( \$form, \%fdat,
target => 'foo4',
);
my @v2 = $output2 =~ m/<input .*?value="(.*?)"/ig;
ok($v2[0], 'nada');
ok($v2[1], 'nada');
ok($v2[2], 'nada');
ok($v2[3], 'bar4');
|
