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

Cleaned the pollution from the forms system.

Browse source
This commit is contained in:
JT Smith 2008-04-16 16:11:10 +00:00
parent 53b81b36d0
commit 8500c4d506
81 changed files with 2675 additions and 1570 deletions
Download patch file Download diff file Expand all files Collapse all files

12
t/Form/Integer.t
View file

@ -120,14 +120,14 @@ is($input->{maxlength}, 20, 'set maxlength');
WebGUI::Form_Checking::auto_check($session, $formType, $testBlock);
# just testing that getValueFromPost works with an argument
# just testing that getValue works with an argument
my $int = WebGUI::Form::Integer->new($session);
is($int->getValueFromPost(-123456), -123456, 'getValueFromPost(-123456)');
is($int->getValueFromPost('002300'), '002300', 'getValueFromPost(002300)');
is($int->getValueFromPost('+123456'), 0, 'getValueFromPost(+123456)');
is($int->getValueFromPost('123-456.'), 0, 'getValueFromPost(123-456.)');
is($int->getValueFromPost(123.456), 0, 'getValueFromPost(123.456)');
is($int->getValue(-123456), -123456, 'getValue(-123456)');
is($int->getValue('002300'), '002300', 'getValue(002300)');
is($int->getValue('+123456'), 0, 'getValue(+123456)');
is($int->getValue('123-456.'), 0, 'getValue(123-456.)');
is($int->getValue(123.456), 0, 'getValue(123.456)');
is($session->form->integer(undef,-123456), -123456, 'session->form->integer(undef,-123456)');
is($session->form->integer(undef,'002300'), '002300', 'session->form->integer(undef,002300)');