From 2893409d05d8d3b5e8e273fdf0bb2c3ce89db89a Mon Sep 17 00:00:00 2001 From: Colin Kuskie Date: Sun, 10 Jun 2007 22:55:52 +0000 Subject: [PATCH] add uiLevel tests for Visitor and Admin --- t/Session.t | 5 ++++- t/User.t | 4 +++- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/t/Session.t b/t/Session.t index da2368719..efc8f4377 100644 --- a/t/Session.t +++ b/t/Session.t @@ -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 diff --git a/t/User.t b/t/User.t index 79226ec5e..deb37bd4c 100644 --- a/t/User.t +++ b/t/User.t @@ -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]);