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

Fix bug 11098. Create a VersionTag method that only clear the session for a single user.

Browse source
This commit is contained in:
Colin Kuskie 2009-10-07 08:51:05 -07:00
parent 5f29c5bcdd
commit a866f143d0
4 changed files with 49 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

34
t/VersionTag.t
View file

@ -14,7 +14,7 @@ use lib "$FindBin::Bin/lib";
use WebGUI::Test;
use WebGUI::Session;
use WebGUI::VersionTag;
use Test::More tests => 68; # increment this value for each test you create
use Test::More tests => 74; # increment this value for each test you create
my $session = WebGUI::Test->session;
@ -379,6 +379,38 @@ $adminUserTag->rollback();
setSiteVersionTagMode($session, q{multiPerUser});
setUserVersionTagMode($user, q{inherited});
my $andySession = WebGUI::Test->newSession();
my $redSession = WebGUI::Test->newSession();
my $andy = WebGUI::User->create($andySession);
my $red = WebGUI::User->create($redSession);
addToCleanup($andy, $red);
my $andyTag = WebGUI::VersionTag->getWorking($andySession);
addToCleanup($andyTag);
my $redTag = WebGUI::VersionTag->new($redSession, $andyTag->getId);
$redTag->setWorking();
is($andyTag->getId, $redTag->getId, 'users share the same version tag');
$andyTag->leaveTag;
{
my $andyTagCheck = WebGUI::VersionTag->getWorking($andySession, 'nocreate');
is($andyTagCheck, undef, 'leaveTag: user andy does not have tag');
my $redTagCheck = WebGUI::VersionTag->getWorking($redSession, 'nocreate');
isa_ok($redTagCheck, 'WebGUI::VersionTag', '... user red does');
is($redTagCheck->getId, $redTag->getId, '... user red still has the same tag as before');
}
my $andyTag2 = WebGUI::VersionTag->new($session, $redTag->getId);
$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);
my $redTagCheck = WebGUI::VersionTag->getWorking($redSession2, 'nocreate');
is($redTagCheck, undef, 'red does not either');
}
# Local variables:
# mode: cperl