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

WebGUI::Test::Maker::Permission will now use usernames instead of userIds in comments

Browse source 
if they are available.
Move the getLanguage test out of the SKIP block dependent on install the PigLatin
language pack.
Update Maker users with usernames in Asset.t
Add tests for assetAddPrivileges.  These tests currently cause the Turn On Admin
checks to fail.  A bug has been filed for this, and the tests may be rewritten
based on the resolution of the bug.
This commit is contained in:
Colin Kuskie 2007-12-27 06:06:32 +00:00
parent 0cfe03726a
commit ed177c614e
3 changed files with 38 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

25
t/lib/WebGUI/Test/Maker/Permission.pm
View file

@ -122,12 +122,15 @@ The permissions method to test
=item pass
An array reference of userIds or WebGUI::User objects that should pass the
permissions test.
permissions test. If each user has a username, it will be used in the
test comment output instead of the userId.
=item fail
An array reference of userIds or WebGUI::User objects that should fail the
permissions test.
permissions test. If each user has a username, it will be used in the
test comment output instead of the userId.
=back
@ -209,14 +212,17 @@ sub run {
# Test the default session user
my $oldUser = $session->user;
$session->user( { userId => $userId } );
ok( $o->$m(@args), "userId $userId passes $m check using default user for " . $comment );
$session->user( { user => $oldUser });
$session->user( { userId => $userId } );
my $role = $session->user->username
? "user ".$session->user->username
: "userId ".$userId;
ok( $o->$m(@args), "$role passes $m check using default user for " . $comment );
$session->user( { user => $oldUser } );
# Test the specified userId
push @args, $userId;
# Test the userId parameter
ok( $o->$m(@args), "userId $userId passes $m check for " . $comment );
ok( $o->$m(@args), "$role passes $m check for " . $comment );
}
}
@ -227,12 +233,15 @@ sub run {
# Test the default session user
my $oldUser = $session->user;
$session->user( { userId => $userId } );
ok( !($o->$m(@args)), "userId $userId fails $m check using default user for " . $comment );
my $role = $session->user->username
? "user ".$session->user->username
: "userId ".$userId;
ok( !($o->$m(@args)), "$role fails $m check using default user for " . $comment );
$session->user( { user => $oldUser });
# Test the userId parameter
push @args, $userId;
ok( !($o->$m(@args)), "userId $userId fails $m check for " . $comment );
ok( !($o->$m(@args)), "$role fails $m check for " . $comment );
}
}