oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Update Form tests to work with CSRF.

Browse source
This commit is contained in:
Colin Kuskie 2009-07-16 21:38:05 +00:00
parent 19a2a5a31d
commit 2a966c79e9
19 changed files with 63 additions and 63 deletions
Download patch file Download diff file Expand all files Collapse all files

6
t/Form/Zipcode.t
View file

@ -84,11 +84,11 @@ my @forms = HTML::Form->parse($html, 'http://www.webgui.org');
is(scalar @forms, 1, '1 form was parsed');
my @inputs = $forms[0]->inputs;
is(scalar @inputs, 1, 'The form has 1 input');
is(scalar @inputs, 2, 'The form has 2 inputs');
#Basic tests
my $input = $inputs[0];
my $input = $inputs[1];
is($input->name, 'TestZip', 'Checking input name');
is($input->type, 'text', 'Checking input type');
is($input->value, '97123-ORST', 'Checking default value');
@ -107,7 +107,7 @@ $html = join "\n",
my @forms = HTML::Form->parse($html, 'http://www.webgui.org');
@inputs = $forms[0]->inputs;
$input = $inputs[0];
$input = $inputs[1];
is($input->name, 'TestZip2', 'Checking input name');
is($input->type, 'text', 'Checking input type');
is($input->value, '97229-MXIM', 'Checking default value');