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

4
t/User.t
View file

@ -20,7 +20,7 @@ use WebGUI::Cache;
use WebGUI::User;
use WebGUI::ProfileField;
use Test::More tests => 93; # increment this value for each test you create
use Test::More tests => 95; # increment this value for each test you create
use Test::Deep;
my $session = WebGUI::Test->session;
@ -205,7 +205,9 @@ is( $cm->name, "Content Managers", "content manager name check");
is( $cm->getId, 4, "content manager groupId check");
my $admin = WebGUI::User->new($session, 3);
is($admin->profileField('uiLevel'), 9, 'Admin default uiLevel = 9');
my $visitor = WebGUI::User->new($session, 1);
is($visitor->profileField('uiLevel'), 5, 'Visitor gets the default uiLevel of 5');
$session->db->write('update userSession set lastIP=? where sessionId=?',['192.168.0.101', $session->getId]);