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

More test tweaks for zipcode.

Browse source
This commit is contained in:
Colin Kuskie 2009-09-24 09:34:25 -07:00
parent 6a3d1588be
commit 8374a88046
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
t/Form/Zipcode.t
View file

@ -124,13 +124,13 @@ 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($cntl->getValue('abcde'), 'ABCDE', 'lower case is uppercased');
is($session->form->zipcode(undef,'ABCDE'), 'ABCDE', 'alpha');
is($session->form->zipcode(undef,'02468'), '02468', 'numeric');
is($session->form->zipcode(undef,'NO WHERE'), 'NO WHERE', 'alpha space');
is($session->form->zipcode(undef,'-'), '-', 'bare dash');
is($session->form->zipcode(undef,'abcde'), undef, 'lower case');
is($session->form->zipcode(undef,'abcde'), 'ABCDE', 'lower case uppercased');
__END__