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

@ -91,11 +91,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 input');
#Basic tests
my $input = $inputs[0];
my $input = $inputs[1];
is($input->name, 'TestClass', 'Checking input name');
is($input->type, 'hidden', 'Checking input type');
is($input->value, 'WebGUI::Asset::File', 'Checking default value');
@ -112,7 +112,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, 'StorageClass', 'Checking input name');
is($input->value, 'WebGUI::Storage', 'Checking default value');