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

Add a comment to AssetMetaData.t

Browse source 
Add more tests to Session.t to check the $session->user method.
This commit is contained in:
Colin Kuskie 2007-06-12 03:41:41 +00:00
parent d1f5dcfd9d
commit 213c161581
2 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
t/Asset/AssetMetaData.t
View file

@ -67,6 +67,7 @@ cmp_deeply( \@snipKeys, \@foldKeys, 'Snippet and Folder have access to the same
my $seMetaData = $snippet->getMetaDataFields()->{$snipKeys[0]};
##Add a second field, this time to the folder.
$folder->addMetaDataField('new', 'color', '', 'Favorite Color', 'radioList', "Blue\nRed\nWhite\nYellow\nGreen");
@snipKeys = keys %{ $snippet->getMetaDataFields };

3
t/Session.t
View file

@ -19,7 +19,7 @@ use WebGUI::User;
use Test::More;
plan tests => 3; # increment this value for each test you create
plan tests => 4; # increment this value for each test you create
my $session = WebGUI::Test->session;
@ -32,6 +32,7 @@ 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->userId, 3, 'Set session user to Admin, check userId==3');
is($session->user->profileField('uiLevel'), 9, 'Set session user to Admin, check uiLevel==9');
################################################################