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

add test for Session->duplicate

Browse source
This commit is contained in:
Graham Knop 2010-06-17 10:52:51 -05:00
parent 0e9b793af9
commit caacf34d05
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
t/Session.t
View file

@ -19,7 +19,7 @@ use WebGUI::User;
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;
@ -36,6 +36,11 @@ $session->user({userId => 3});
is($session->user->userId, 3, 'Set session user to Admin, check userId==3'); is($session->user->userId, 3, 'Set session user to Admin, check userId==3');
is($session->user->profileField('uiLevel'), 9, 'Set session user to Admin, check uiLevel==9'); is($session->user->profileField('uiLevel'), 9, 'Set session user to Admin, check uiLevel==9');
my $dupe = $session->duplicate;
WebGUI::Test->addToCleanup($dupe);
is $session->getId, $dupe->getId, 'duplicated session has the same sessionId';
################################################################ ################################################################
# #
# dbSlave # dbSlave