4 use RT::Test tests => 18;
6 my $queue = RT::Test->load_or_create_queue( Name => 'General' );
8 my $user = RT::Test->load_or_create_user(
10 Password => 'password',
13 my ( $baseurl, $m ) = RT::Test->started_ok;
16 { Principal => $user, Right => [qw(SeeQueue CreateTicket)] },
21 ok $m->login( 'user', 'password' ), 'logged in as user';
23 diag "test ShowTicket right";
26 $m->get_ok( '/Ticket/Create.html?Queue=' . $queue->id,
27 'go to ticket create page' );
28 my $form = $m->form_name('TicketCreate');
29 $m->submit_form( fields => { Subject => 'ticket foo' } );
31 my $ticket = RT::Test->last_ticket;
32 ok( $ticket->id, 'ticket is created' );
35 $m->content_lacks( "Ticket $id created", 'created ticket' );
36 $m->content_contains( "No permission to view newly created ticket #$id",
37 'got no permission msg' );
38 $m->warning_like( qr/No permission to view newly created ticket #$id/,
39 'got no permission warning' );
43 $m->content_contains( "No permission to view ticket",
44 'got no permission msg' );
45 $m->warning_like( qr/No permission to view ticket/, 'got warning' );
46 $m->title_is('RT Error');
50 { Principal => $user, Right => [qw(ShowTicket)] },
52 'add ShowTicket right'
57 $m->content_lacks( "No permission to view ticket", 'no error msg' );
58 $m->title_is( "#$id: ticket foo", 'we can it' );
62 # TODO more /Ticket/Display.html tests here