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

8
t/VersionTag.t
View file

@ -384,7 +384,7 @@ $siteWideTag->rollback();
# create admin session
$admin_session = WebGUI::Test->newSession;
WebGUI::Test->addToCleanup($admin_session);
addToCleanup($admin_session);
WebGUI::Test->addToCleanup($admin_session);
$admin_session->user({'userId' => 3});
setUserVersionTagMode($admin_session->user(), q{autoCommit});
@ -436,10 +436,10 @@ my $redSession = WebGUI::Test->newSession();
my $andy = WebGUI::User->create($andySession);
my $red = WebGUI::User->create($redSession);
addToCleanup($andy, $red);
WebGUI::Test->addToCleanup($andy, $red);
my $andyTag = WebGUI::VersionTag->getWorking($andySession);
addToCleanup($andyTag);
WebGUI::Test->addToCleanup($andyTag);
my $redTag = WebGUI::VersionTag->new($redSession, $andyTag->getId);
$redTag->setWorking();
is($andyTag->getId, $redTag->getId, 'users share the same version tag');
@ -459,7 +459,7 @@ $andyTag2->clearWorking;
my $andyTagCheck = WebGUI::VersionTag->getWorking($andySession, 'nocreate');
is($andyTagCheck, undef, 'clearWorking: user andy does not have tag');
my $redSession2 = $redSession->duplicate;
addToCleanup($redSession2);
WebGUI::Test->addToCleanup($redSession2);
my $redTagCheck = WebGUI::VersionTag->getWorking($redSession2, 'nocreate');
is($redTagCheck, undef, 'red does not either');
}