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

Debug needs an explicit package name for addToCleanup.

Browse source
This commit is contained in:
Colin Kuskie 2011-10-19 13:11:23 -07:00
parent 19b6f9de12
commit 82bb59d40e
47 changed files with 99 additions and 99 deletions
Download patch file Download diff file Expand all files Collapse all files

2
t/Macro/CanEditText.t
View file

@ -98,6 +98,6 @@ sub setupTest {
$users[1]->addToGroups([$cm->getId]);
##User 2 is a member of a content manager sub-group
$users[2]->addToGroups([$editGroup->getId]);
addToCleanup($editGroup, @users);
WebGUI::Test->addToCleanup($editGroup, @users);
return ($asset, $editGroup, @users);
}

4
t/Macro/GroupAdd.t
View file

@ -145,13 +145,13 @@ sub setupTest {
$groups[1] = WebGUI::Group->new($session, "new");
$groups[1]->name('Regular Old Group');
$groups[1]->autoAdd(0);
addToCleanup(@groups);
WebGUI::Test->addToCleanup(@groups);
##Three users. One in each group and one with no group membership
my @users = map { WebGUI::User->new($session, "new") } 0..2;
$users[0]->addToGroups([$groups[0]->getId]);
$users[1]->addToGroups([$groups[1]->getId]);
addToCleanup(@users);
WebGUI::Test->addToCleanup(@users);
my $properties = {
title => 'GroupAdd test template',

4
t/Macro/GroupDelete.t
View file

@ -144,13 +144,13 @@ sub setupTest {
$groups[1] = WebGUI::Group->new($session, "new");
$groups[1]->name('Regular Old Group');
$groups[1]->autoDelete(0);
addToCleanup(@groups);
WebGUI::Test->addToCleanup(@groups);
##Three users. One in each group and one with no group membership
my @users = map { WebGUI::User->new($session, "new") } 0..2;
$users[0]->addToGroups([$groups[0]->getId]);
$users[1]->addToGroups([$groups[1]->getId]);
addToCleanup(@users);
WebGUI::Test->addToCleanup(@users);
my $properties = {
title => 'GroupDelete test template',

6
t/Macro/GroupText.t
View file

@ -57,14 +57,14 @@ my $sth = $session->db->prepare('INSERT INTO myUserTable VALUES(?)');
foreach my $mob (@mob) {
$sth->execute([ $mob->userId ]);
}
addToCleanup(@mob);
WebGUI::Test->addToCleanup(@mob);
##Create the 3 groups
$ms_users = WebGUI::Group->new($session, "new");
$ms_distributors = WebGUI::Group->new($session, "new");
$ms_int_distributors = WebGUI::Group->new($session, "new");
addToCleanup($ms_users, $ms_distributors, $ms_int_distributors);
WebGUI::Test->addToCleanup($ms_users, $ms_distributors, $ms_int_distributors);
$ms_users->name('MS Users');
$ms_distributors->name('MS Distributors');
@ -86,7 +86,7 @@ $ms_distributors->addGroups([$ms_int_distributors->getId]);
$disti = WebGUI::User->new($session, 'new');
$int_disti = WebGUI::User->new($session, 'new');
addToCleanup($disti, $int_disti);
WebGUI::Test->addToCleanup($disti, $int_disti);
$ms_distributors->addUsers([$disti->userId]);
$ms_int_distributors->addUsers([$int_disti->userId]);

2
t/Macro/MiniCart.t
View file

@ -33,7 +33,7 @@ my $donation = WebGUI::Asset->getRoot($session)->addChild({
});
my $template = setupJSONtemplate($session);
addToCleanup($cart, $donation, $template);
WebGUI::Test->addToCleanup($cart, $donation, $template);
my $json;
my $templateVars;

2
t/Macro/NewMail.t
View file

@ -25,7 +25,7 @@ plan tests => $numTests;
my $inboxUser = WebGUI::User->create($session);
$session->user({userId => $inboxUser->getId});
addToCleanup($inboxUser);
WebGUI::Test->addToCleanup($inboxUser);
my $inbox = WebGUI::Inbox->new($session);

2
t/Macro/RootTitle.t
View file

@ -31,7 +31,7 @@ my $session = WebGUI::Test->session;
my $versionTag = WebGUI::VersionTag->getWorking($session);
$versionTag->set({name=>"Adding assets for RootTitle tests"});
my %tag = ( tagId => $versionTag->getId, status => "pending" );
addToCleanup($versionTag);
WebGUI::Test->addToCleanup($versionTag);
my $root = WebGUI::Asset->getRoot($session);
my %properties_A = (

2
t/Macro/SQL.t
View file

@ -144,7 +144,7 @@ foreach my $testSet (@testSets) {
$WebGUIdbLink->set({allowMacroAccess=>$originalMacroAccessValue});
my $newLinkId = $WebGUIdbLink->copy;
addToCleanup(WebGUI::DatabaseLink->new($session, $newLinkId));
WebGUI::Test->addToCleanup(WebGUI::DatabaseLink->new($session, $newLinkId));
my $output = WebGUI::Macro::SQL::process(
$session,
q{show columns from testTable like 'zero'},

4
t/Macro/UsersOnline.t
View file

@ -178,7 +178,7 @@ sub setupUsers {
my $newSession = WebGUI::Session->open(WebGUI::Test::file);
$newSession->user({user => $_});
}
addToCleanup(@users);
WebGUI::Test->addToCleanup(@users);
return @users;
}
@ -232,6 +232,6 @@ sub setupJSONtemplate {
}
EOTMPL
my $template = WebGUI::Asset->getImportNode($session)->addChild({className=>'WebGUI::Asset::Template', parser => 'WebGUI::Asset::Template::HTMLTemplate', namespace => 'Macro/UsersOnline', template=>$templateBody});
addToCleanup($template);
WebGUI::Test->addToCleanup($template);
return $template;
}