#
# END BPS TAGGED BLOCK }}}
-use RT::Test tests => 30;
+use RT::Test nodata => 1, tests => 30;
use strict;
use warnings;
# clear all global right
{
- my $acl = RT::ACL->new($RT::SystemUser);
+ my $acl = RT::ACL->new(RT->SystemUser);
$acl->Limit( FIELD => 'RightName', OPERATOR => '!=', VALUE => 'SuperUser' );
$acl->LimitToObject( $RT::System );
while( my $ace = $acl->Next ) {
}
{
- my $group = RT::Group->new( $RT::SystemUser );
+ my $group = RT::Group->new( RT->SystemUser );
ok( $group->LoadQueueRoleGroup( Queue => $queue->id, Type=> 'Owner' ),
"load queue owners role group"
);
- my $ace = RT::ACE->new( $RT::SystemUser );
+ my $ace = RT::ACE->new( RT->SystemUser );
my ($ace_id, $msg) = $group->PrincipalObj->GrantRight(
Right => 'ReplyToTicket', Object => $queue
);
my $ticket;
{
# new ticket
- $ticket = RT::Ticket->new($RT::SystemUser);
+ $ticket = RT::Ticket->new(RT->SystemUser);
my ($ticket_id) = $ticket->Create( Queue => $queue->id, Subject => 'test');
ok( $ticket_id, 'new ticket created' );
- is( $ticket->Owner, $RT::Nobody->Id, 'owner of the new ticket is nobody' );
+ is( $ticket->Owner, RT->Nobody->Id, 'owner of the new ticket is nobody' );
ok( !$user->HasRight( Right => 'OwnTicket', Object => $ticket ),
"user can't reply to ticket"
{
# Testing of EquivObjects
- my $group = RT::Group->new( $RT::SystemUser );
+ my $group = RT::Group->new( RT->SystemUser );
ok( $group->LoadQueueRoleGroup( Queue => $queue->id, Type=> 'AdminCc' ),
"load queue AdminCc role group"
);
- my $ace = RT::ACE->new( $RT::SystemUser );
+ my $ace = RT::ACE->new( RT->SystemUser );
my ($ace_id, $msg) = $group->PrincipalObj->GrantRight(
Right => 'ModifyTicket', Object => $queue
);
my $ticket2;
{
- $ticket2 = RT::Ticket->new($RT::SystemUser);
+ $ticket2 = RT::Ticket->new(RT->SystemUser);
my ($id) = $ticket2->Create( Queue => $queue->id, Subject => 'test2');
ok( $id, 'new ticket created' );
ok( !$user->HasRight( Right => 'ModifyTicket', Object => $ticket2 ),