diff options
Diffstat (limited to 'rt/t/api/rights.t')
-rw-r--r-- | rt/t/api/rights.t | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/rt/t/api/rights.t b/rt/t/api/rights.t index 5cf3a00..a6346a7 100644 --- a/rt/t/api/rights.t +++ b/rt/t/api/rights.t @@ -29,10 +29,8 @@ ok $user && $user->id, 'loaded or created user'; } { - my $group = RT::Group->new( RT->SystemUser ); - ok( $group->LoadQueueRoleGroup( Queue => $queue->id, Type=> 'Owner' ), - "load queue owners role group" - ); + my $group = $queue->RoleGroup( 'Owner' ); + ok( $group->Id, "load queue owners role group" ); my $ace = RT::ACE->new( RT->SystemUser ); my ($ace_id, $msg) = $group->PrincipalObj->GrantRight( Right => 'ReplyToTicket', Object => $queue @@ -84,10 +82,8 @@ my $ticket; { # Testing of EquivObjects - my $group = RT::Group->new( RT->SystemUser ); - ok( $group->LoadQueueRoleGroup( Queue => $queue->id, Type=> 'AdminCc' ), - "load queue AdminCc role group" - ); + my $group = $queue->RoleGroup( 'AdminCc' ); + ok( $group->Id, "load queue AdminCc role group" ); my $ace = RT::ACE->new( RT->SystemUser ); my ($ace_id, $msg) = $group->PrincipalObj->GrantRight( Right => 'ModifyTicket', Object => $queue |