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/Integer.t
View file

@ -103,11 +103,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, 'TestInteger', 'Checking input name');
is($input->type, 'text', 'Checking input type');
is($input->value, '123456', 'Checking default value');
@ -128,7 +128,7 @@ my $html = join "\n",
@forms = HTML::Form->parse($html, 'http://www.webgui.org');
@inputs = $forms[0]->inputs;
my $input = $inputs[0];
my $input = $inputs[1];
is($input->name, 'TestInt2', 'Checking input name');
is($input->value, '98765', 'Checking default value');
is($input->{size}, 15, 'set size');