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

New AdSpace tests, need to start looking at coverage.

Browse source 
Added some comments and fixed some POD in AdSpace.pm and Ad.pm
This commit is contained in:
Colin Kuskie 2007-02-05 01:01:20 +00:00
parent 870d9dbe46
commit c9726f7b4d
4 changed files with 29 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

9
t/AdSpace/Ad.t
View file

@ -31,11 +31,12 @@ my $adSpace;
SKIP: {
skip "Unable to load WebGUI::AdSpace::Ad", $numTests-1 unless $loaded;
$adSpace = WebGUI::AdSpace->create($session, {name=>"Alfred"});
$ad=WebGUI::AdSpace::Ad->create($session, $adSpace->getId, {"type", "text"});
isa_ok($ad,"WebGUI::AdSpace::Ad","testing create with no properties");
skip "Unable to load WebGUI::AdSpace::Ad", $numTests-1 unless $loaded;
$adSpace = WebGUI::AdSpace->create($session, {name=>"Alfred"});
$ad=WebGUI::AdSpace::Ad->create($session, $adSpace->getId, {"type" => "text"});
isa_ok($ad,"WebGUI::AdSpace::Ad","testing create with no properties");
}
END {
if (defined $ad and ref $ad eq 'WebGUI::AdSpace::Ad') {
$ad->delete;