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