oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

merging form pollution fix

Browse source
This commit is contained in:
JT Smith 2008-04-16 21:55:38 +00:00
parent c1cab2299c
commit 11e4f6ea7e
78 changed files with 2666 additions and 1463 deletions
Download patch file Download diff file Expand all files Collapse all files

10
t/Form/Zipcode.t
View file

@ -120,11 +120,11 @@ WebGUI::Form_Checking::auto_check($session, 'Zipcode', $testBlock);
# test that we can process non-POST values correctly
my $cntl = WebGUI::Form::Zipcode->new($session,{ defaultValue => 4242 });
is($cntl->getValueFromPost('ABCDE'), 'ABCDE', 'alpha');
is($cntl->getValueFromPost('02468'), '02468', 'numeric');
is($cntl->getValueFromPost('NO WHERE'), 'NO WHERE', 'alpha space');
is($cntl->getValueFromPost('-'), '-', 'bare dash');
is($cntl->getValueFromPost('abcde'), undef, 'lower case');
is($cntl->getValue('ABCDE'), 'ABCDE', 'alpha');
is($cntl->getValue('02468'), '02468', 'numeric');
is($cntl->getValue('NO WHERE'), 'NO WHERE', 'alpha space');
is($cntl->getValue('-'), '-', 'bare dash');
is($cntl->getValue('abcde'), undef, 'lower case');
is($session->form->zipcode(undef,'ABCDE'), 'ABCDE', 'alpha');
is($session->form->zipcode(undef,'02468'), '02468', 'numeric');