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

32
t/Form/CheckList.t
View file

@ -61,22 +61,22 @@ my @forms = HTML::Form->parse($html, 'http://www.webgui.org');
is(scalar @forms, 1, '1 form was parsed to test basic functionality');
my @inputs = $forms[0]->inputs;
is(scalar @inputs, 4, 'The form has 3 inputs');
is(scalar @inputs, 5, 'The form has 5 inputs');
#Basic tests
is($inputs[0]->name, '__CList1_isIn', 'Checking input name for hidden element');
is($inputs[0]->type, 'hidden', 'Checking input type for hidden element');
is($inputs[0]->value, '1', 'Checking default value for hidden element');
is($inputs[1]->name, 'CList1', 'Checking input name for checkbox 1');
is($inputs[1]->type, 'checkbox', 'Checking input type for checkbox 1');
is($inputs[1]->value, 'foo', 'Checking default value for checkbox 1');
is($inputs[2]->name, 'CList1', 'Checking input name for checkbox 2');
is($inputs[2]->type, 'checkbox', 'Checking input type for checkbox 2');
is($inputs[2]->value, undef, 'Checking default value for checkbox 2');
is($inputs[3]->name, 'CList1', 'Checking input name for checkbox 3');
is($inputs[3]->type, 'checkbox', 'Checking input type for checkbox 3');
is($inputs[3]->value, undef, 'Checking default value for checkbox 3');
is($inputs[1]->name, '__CList1_isIn', 'Checking input name for hidden element');
is($inputs[1]->type, 'hidden', 'Checking input type for hidden element');
is($inputs[1]->value, '1', 'Checking default value for hidden element');
is($inputs[2]->name, 'CList1', 'Checking input name for checkbox 1');
is($inputs[2]->type, 'checkbox', 'Checking input type for checkbox 1');
is($inputs[2]->value, 'foo', 'Checking default value for checkbox 1');
is($inputs[3]->name, 'CList1', 'Checking input name for checkbox 2');
is($inputs[3]->type, 'checkbox', 'Checking input type for checkbox 2');
is($inputs[3]->value, undef, 'Checking default value for checkbox 2');
is($inputs[4]->name, 'CList1', 'Checking input name for checkbox 3');
is($inputs[4]->type, 'checkbox', 'Checking input type for checkbox 3');
is($inputs[4]->value, undef, 'Checking default value for checkbox 3');
@ -95,10 +95,10 @@ my $html = join "\n",
is(scalar @forms, 1, '1 form was parsed to test showSelectAll');
@inputs = $forms[0]->inputs;
is(scalar @inputs, 5, 'The form has 5 inputs (1 hidden, 1 button, 3 checkboxes)');
is(scalar @inputs, 6, 'The form has 6 inputs (CSRF, 1 hidden, 1 button, 3 checkboxes)');
is($inputs[1]->type, 'button', 'The Select All button is there and before all checkboxes');
is( $inputs[1]->{value},
is($inputs[2]->type, 'button', 'The Select All button is there and before all checkboxes');
is( $inputs[2]->{value},
WebGUI::International->new($session,"Form_CheckList")->get("selectAll label"),
'The value is internationalized'
);

4
t/Form/Checkbox.t
View file

@ -68,11 +68,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, 'CBox1', 'Checking input name');
is($input->type, 'checkbox', 'Checking input type');
is($input->value, 'Checkme', 'Checking default value');

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');

4
t/Form/CsrfToken.t
View file

@ -47,11 +47,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, 'webguiCsrfToken', 'Checking input name');
is($input->type, 'hidden', 'Checking input type');
is($input->value, $session->scratch->get('webguiCsrfToken'), 'Checking token value');

6
t/Form/Date.t
View file

@ -67,9 +67,9 @@ 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, 'TestDate', 'Checking input name');
is($input->type, 'text', 'Checking input type');
@ -95,7 +95,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, 'preDateValue', 'Checking input name');
TODO: {
local $TODO = "Figure out why this is returning a MySQL value instead of an epoch.";

6
t/Form/DateTime.t
View file

@ -51,9 +51,9 @@ 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 1 inputs');
#Basic tests
my $input = $inputs[0];
my $input = $inputs[1];
is($input->name, 'TestDate', 'Checking input name');
is($input->type, 'text', 'Checking input type');
@ -76,7 +76,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, 'preDateValue', 'Checking input name');
#is($input->value, 1217608466, 'Checking default value');
is($input->{size}, 19, 'Checking size param, set');

6
t/Form/Email.t
View file

@ -92,11 +92,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, 'TestEmail', 'Checking input name');
is($input->type, $formType, 'Checking input type');
is($input->value, 'me@nowhere.com', 'Checking default value');
@ -115,7 +115,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, 'email2', 'Checking input name');
is($input->value, 'Some & text in " here', 'Checking default value');
is($input->{size}, 25, 'Checking size param, set');

6
t/Form/Float.t
View file

@ -110,11 +110,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, 'TestFloat', 'Checking input name');
is($input->type, 'text', 'Checking input type');
is($input->value, '12.3456', 'Checking default value');
@ -133,7 +133,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, 'TestFloat2', 'Checking input name');
is($input->value, '00789.25', 'Checking default value');
is($input->{size}, 15, 'set size');

6
t/Form/Hidden.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 inputs');
#Basic tests
my $input = $inputs[0];
my $input = $inputs[1];
is($input->name, 'TestHidden', 'Checking input name');
is($input->type, 'hidden', 'Checking input type');
is($input->value, 'hiddenData', 'Checking default value');
@ -112,7 +112,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, 'hiddenZero', 'Checking input name for zero input');
is($input->value, 0, 'Checking value for zero input');

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');

6
t/Form/Password.t
View file

@ -67,11 +67,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];
use Data::Dumper;
is($input->name, 'TestText', 'Checking input name');
is($input->type, $formType, 'Checking input type');
@ -94,7 +94,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');

6
t/Form/Phone.t
View file

@ -109,11 +109,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, 'TestPhone', 'Checking input name');
is($input->type, 'text', 'Checking input type');
is($input->value, '(555)867-5309', 'Checking default value');
@ -134,7 +134,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, 'EuroPhone', 'Checking input name');
is($input->value, '123.456.7890', 'Checking default value');
is($input->{size}, 15, 'set size');

4
t/Form/Radio.t
View file

@ -69,10 +69,10 @@ 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, 'radio1', 'Checking input name');
is($input->type, 'radio', 'Checking input type');
is($input->value, 'Selectify', 'Checking default value');

2
t/Form/SelectBox.t
View file

@ -74,7 +74,7 @@ is(scalar @forms, 1, '1 form was parsed');
my $form = $forms[0];
#use Data::Dumper;
my @inputs = $form->inputs;
is(scalar @inputs, 1, 'The form has 1 input');
is(scalar @inputs, 2, 'The form has 2 inputs');
#Basic tests

2
t/Form/SelectList.t
View file

@ -89,7 +89,7 @@ is(scalar @forms, 1, '1 form was parsed');
my $form = $forms[0];
#use Data::Dumper;
my @inputs = $form->inputs;
is(scalar @inputs, 7, 'The form has 7 inputs');
is(scalar @inputs, 8, 'The form has 8 inputs');
#Basic tests

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');

6
t/Form/Textarea.t
View file

@ -66,11 +66,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');
@ -87,7 +87,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');

6
t/Form/Url.t
View file

@ -96,11 +96,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, 'TestUrl', 'Checking input name');
is($input->type, 'text', 'Checking input type');
is($input->value, 'http://www.webgui.org', 'Checking default value');
@ -122,7 +122,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, 'preTestUrl', 'Checking input name');
is($input->value, 'http://www.webgui.org?foo=bar&baz=buz', 'Checking default value');
is($input->{size}, 25, 'set size');

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');