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

@ -78,11 +78,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, 'TestText', 'Checking input name');
is($input->type, $formType, 'Checking input type');
is($input->value, 'Some text in here', 'Checking default value');
@ -104,7 +104,7 @@ $html = join "\n",
@forms = HTML::Form->parse($html, 'http://www.webgui.org');
@inputs = $forms[0]->inputs;
$input = $inputs[0];
$input = $inputs[1];
is($input->name, 'preTestText', 'Checking input name');
is($input->value, 'Some & text in " here', 'Checking default value');
is($input->{size}, 25, 'Checking size param, set');