rt/t/api/reminder-permissions.t

   1 use strict;
   2 use warnings;
   3 use RT::Test tests => 9;
   4
   5 my $user_a = RT::Test->load_or_create_user(
   6     Name     => 'user_a',
   7     Password => 'password',
   8 );
   9
  10 ok( $user_a && $user_a->id, 'created user_a' );
  11 ok(
  12     RT::Test->add_rights(
  13         {
  14             Principal => $user_a,
  15             Right     => [qw/SeeQueue CreateTicket ShowTicket OwnTicket/]
  16         },
  17     ),
  18     'add basic rights for user_a'
  19 );
  20
  21 my $ticket = RT::Test->create_ticket(
  22     Subject => 'test reminder permission',
  23     Queue   => 'General',
  24 );
  25 ok( $ticket->id, 'created a ticket' );
  26 $ticket->CurrentUser($user_a);
  27
  28 my ( $status, $msg ) = $ticket->Reminders->Add(
  29     Subject => 'user a reminder',
  30     Owner   => $user_a->id,
  31 );
  32 ok( !$status, "couldn't create reminders without ModifyTicket: $msg" );
  33
  34 ok(
  35     RT::Test->add_rights(
  36         {
  37             Principal => $user_a,
  38             Right     => [qw/ModifyTicket/]
  39         },
  40     ),
  41     'add ModifyTicket right for user_a'
  42 );
  43
  44 ( $status, $msg ) = $ticket->Reminders->Add(
  45     Subject => 'user a reminder',
  46     Owner   => $user_a->id,
  47 );
  48 ok( $status, "created a reminder with ModifyTicket: $msg" );
  49