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

fix a session bug where, when using noFuss, user session scratch was not cleaned up

Browse source
This commit is contained in:
Colin Kuskie 2007-11-02 17:50:19 +00:00
parent 980ff3e972
commit 45eb45fa3e
2 changed files with 59 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

48
t/Workflow/Activity/DeleteExpiredSessions.t
View file

@ -19,18 +19,53 @@ use WebGUI::Workflow::Activity::DeleteExpiredSessions;
use Test::More;
plan tests => 1; # increment this value for each test you create
plan tests => 4; # increment this value for each test you create
my $session = WebGUI::Test->session;
TODO: {
local $TODO = "Tests that need to be written";
ok(0, 'Test allowPrivateMessages=friends, with various userIds');
}
my $origSessionTimeout = $session->setting->get('sessionTimeout');
my $sessionCount = $session->db->quickScalar('select count(*) from userSession');
my $scratchCount = $session->db->quickScalar('select count(*) from userSessionScratch');
my @sessions;
foreach (1..2) {
push @sessions, WebGUI::Session->open(WebGUI::Test->root, WebGUI::Test->file);
}
##Force automatic expiration of the sessions
$session->setting->set('sessionTimeout', -500);
foreach (1..2) {
push @sessions, WebGUI::Session->open(WebGUI::Test->root, WebGUI::Test->file);
}
$session->setting->set('sessionTimeout', $origSessionTimeout );
$sessions[1]->scratch->set('scratch1', 1);
$sessions[3]->scratch->set('scratch3', 3);
my $newSessionCount = $session->db->quickScalar('select count(*) from userSession');
my $newScratchCount = $session->db->quickScalar('select count(*) from userSessionScratch');
is ($newSessionCount, $sessionCount+4, 'all new sessions created correctly');
is ($newScratchCount, $scratchCount+2, 'two of the new sessions have scratch entries');
my $activity = WebGUI::Workflow::Activity::DeleteExpiredSessions->create($session);
$activity->execute();
$newSessionCount = $session->db->quickScalar('select count(*) from userSession');
$newScratchCount = $session->db->quickScalar('select count(*) from userSessionScratch');
is ($newSessionCount, $sessionCount+2, 'two of the sessions were deleted');
is ($newScratchCount, $scratchCount+1, 'one of the new sessions have scratch entries were deleted');
foreach my $testSession (@sessions) {
$testSession->var->end;
$testSession->close;
}
##Add 4 sessions:
## 1) Active session
## 2) Active session with scratch
@ -42,3 +77,6 @@ my $scratchCount = $session->db->quickScalar('select count(*) from userSessionSc
## Make sure that one scratch session was deleted and the other kept.
## Close and end all four sessions
END: {
$session->setting->set('sessionTimeout', $origSessionTimeout );
}