Add more tests to reveal Form/Integer behavior.

This commit is contained in:
Colin Kuskie 2009-04-16 04:33:51 +00:00
parent 6258df5bab
commit 9b41c21407

View file

@ -58,6 +58,24 @@ my $testBlock = [
expected => 0,
comment => 'rejects float',
},
{
key => 'Int6',
testValue => '0',
expected => 0,
comment => 'zero passes',
},
{
key => 'Int7',
testValue => '',
expected => 0,
comment => 'empty string returns 0',
},
{
key => 'Int8',
testValue => undef,
expected => 0,
comment => 'undef returns 0',
},
];
my $formClass = 'WebGUI::Form::Integer';