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

add uiLevel tests for Visitor and Admin

Browse source
This commit is contained in:
Colin Kuskie 2007-06-10 22:55:52 +00:00
parent ebf093775e
commit 2893409d05
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
t/Session.t
View file

@ -19,7 +19,7 @@ use WebGUI::User;
use Test::More;
plan tests => 2; # increment this value for each test you create
plan tests => 3; # increment this value for each test you create
my $session = WebGUI::Test->session;
@ -31,6 +31,9 @@ my ($userId) = $session->db->quickArray("select userId from userSession where se
is($userId, $user->userId, 'changing session user changes sessionId inside userSession table');
$session->user({userId => 3});
is($session->user->profileField('uiLevel'), 9, 'Set session user to Admin, check uiLevel==9');
################################################################
#
# dbSlave