1 use RT::Test nodata => 1, tests => 9;
6 my $queue = RT::Test->load_or_create_queue( Name => 'A' );
7 ok $queue && $queue->id, 'loaded or created queue_a';
10 my $user = RT::Test->load_or_create_user(
12 Password => 'password',
13 EmailAddress => 'test@example.com',
15 ok $user && $user->id, 'loaded or created user';
20 { Principal => 'Everyone', Right => [qw(SeeQueue)] },
21 { Principal => 'Cc', Right => [qw(ShowTicket)] },
23 my ($t) = RT::Test->create_tickets(
24 { Queue => $queue->id },
27 my $rights = $user->PrincipalObj->HasRights( Object => $t );
28 is_deeply( $rights, { SeeQueue => 1 }, 'got it' );
30 ($t) = RT::Test->create_tickets(
31 { Queue => $queue->id },
32 { Cc => $user->EmailAddress },
34 ok($t->Cc->HasMember( $user->id ), 'user is cc');
35 $rights = $user->PrincipalObj->HasRights( Object => $t );
36 is_deeply( $rights, { SeeQueue => 1, ShowTicket => 1 }, 'got it' )
40 RT::Test->delete_tickets( "Queue = $qid" );
41 RT::Test->delete_queue_watchers( $queue );