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

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

@ -19,10 +19,13 @@ use WebGUI::Workflow::Activity::DeleteExpiredSessions;
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 $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 $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 ($newScratchCount, $scratchCount+2, 'two of the new sessions have scratch entries');
my $activity = WebGUI::Workflow::Activity::DeleteExpiredSessions->create($session);
$activity->execute();
my $returnValue = $activity->execute();
is ($returnValue, 'complete', 'DeleteExpiredSessions completed');
$newSessionCount = $session->db->quickScalar('select count(*) from userSession');
$newScratchCount = $session->db->quickScalar('select count(*) from userSessionScratch');