Update test for CSRF token.

This commit is contained in:
Colin Kuskie 2011-02-28 15:41:06 -08:00
parent bb655e22e7
commit 99f613bb9a

View file

@ -71,11 +71,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, 2, 'The form has 2 inputs. One for the field, another for the JS pop-up button.');
is(scalar @inputs, 3, 'The form has 3 inputs. Field, pop-up and CSRF');
#Basic tests
my $input = $inputs[0];
my $input = $inputs[1];
is($input->name, 'TestTime', 'Checking input name');
is($input->type, $formType, 'Checking input type');
is($input->value, '00:00:10', 'Checking default value');