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

fix test cleanup for AdSpace, add leading 0 test to Form::Text

Browse source
This commit is contained in:
Colin Kuskie 2006-09-12 04:35:35 +00:00
parent 15345a0232
commit d3fbe15ca7
2 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
t/AdSpace.t
View file

@ -31,7 +31,7 @@ SKIP: {
skip "Unable to load WebGUI::AdSpace", $numTests-1 unless $loaded; skip "Unable to load WebGUI::AdSpace", $numTests-1 unless $loaded;
my $adSpace = WebGUI::AdSpace->create($session, {name=>"Alfred"}); $adSpace = WebGUI::AdSpace->create($session, {name=>"Alfred"});
isa_ok($adSpace, 'WebGUI::AdSpace'); isa_ok($adSpace, 'WebGUI::AdSpace');

6
t/Form/Text.t
View file

@ -46,6 +46,12 @@ my $testBlock = [
expected => 'EQUAL', expected => 'EQUAL',
comment => 'single word', comment => 'single word',
}, },
{
key => 'Text4',
testValue => '0leadingzero',
expected => 'EQUAL',
comment => 'leading zero',
},
]; ];
my $formType = 'text'; my $formType = 'text';