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

Clean up all temporary session info in Session/Scratch.t

Browse source 
Add a preliminary run of DeleteExpiredSessions to DeleteExpiredSessions.t
to clean up any old, funky sessions which might just be lying around
and interfering with the test.
This commit is contained in:
Colin Kuskie 2008-01-03 18:37:34 +00:00
parent 047b0c5d3e
commit b309d108dc
2 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
t/Session/Scratch.t
View file

@ -119,9 +119,11 @@ is($sessionBank[2]->scratch->deleteNameByValue('falseValue',''), 1, "deleteNameB
END { END {
$session->scratch->deleteAll; $session->scratch->deleteAll;
foreach my $wgSess ($newSession, @sessionBank, $session) { foreach my $wgSess ($newSession, @sessionBank) {
if (defined $wgSess and ref $wgSess eq 'WebGUI::Session') { if (defined $wgSess and ref $wgSess eq 'WebGUI::Session') {
diag "Closing session";
$wgSess->scratch->deleteAll; $wgSess->scratch->deleteAll;
$wgSess->var->end;
$wgSess->close; $wgSess->close;
} }
} }

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

@ -19,10 +19,13 @@ use WebGUI::Workflow::Activity::DeleteExpiredSessions;
use Test::More; use Test::More;
plan tests => 4; # increment this value for each test you create plan tests => 5; # increment this value for each test you create
my $session = WebGUI::Test->session; my $session = WebGUI::Test->session;
my $activity = WebGUI::Workflow::Activity::DeleteExpiredSessions->create($session);
$activity->execute(); ##Clear out any old sessions that might interfere with this test;
my $origSessionTimeout = $session->setting->get('sessionTimeout'); my $origSessionTimeout = $session->setting->get('sessionTimeout');
my $sessionCount = $session->db->quickScalar('select count(*) from userSession'); my $sessionCount = $session->db->quickScalar('select count(*) from userSession');
@ -52,8 +55,8 @@ my $newScratchCount = $session->db->quickScalar('select count(*) from userSessio
is ($newSessionCount, $sessionCount+4, 'all new sessions created correctly'); is ($newSessionCount, $sessionCount+4, 'all new sessions created correctly');
is ($newScratchCount, $scratchCount+2, 'two of the new sessions have scratch entries'); is ($newScratchCount, $scratchCount+2, 'two of the new sessions have scratch entries');
my $activity = WebGUI::Workflow::Activity::DeleteExpiredSessions->create($session); my $returnValue = $activity->execute();
$activity->execute(); is ($returnValue, 'complete', 'DeleteExpiredSessions completed');
$newSessionCount = $session->db->quickScalar('select count(*) from userSession'); $newSessionCount = $session->db->quickScalar('select count(*) from userSession');
$newScratchCount = $session->db->quickScalar('select count(*) from userSessionScratch'); $newScratchCount = $session->db->quickScalar('select count(*) from userSessionScratch');