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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
|
use strict;
use warnings;
use RT::Test nodata => 1, tests => undef;
use Test::Warn;
my $tester = RT::Test->load_or_create_user(
EmailAddress => 'tester@localhost',
);
ok $tester && $tester->id, 'loaded or created user';
my $queue = RT::Test->load_or_create_queue( Name => 'General' );
ok $queue && $queue->id, 'loaded or created queue';
my $owner_role_group = $queue->RoleGroup( 'Owner' );
ok $owner_role_group->id, 'loaded owners role group of the queue';
diag "check that deffering owner doesn't regress";
{
RT::Test->set_rights(
{ Principal => $tester->PrincipalObj,
Right => [qw(SeeQueue ShowTicket CreateTicket OwnTicket)],
},
{ Principal => $owner_role_group->PrincipalObj,
Object => $queue,
Right => [qw(ModifyTicket)],
},
);
my $ticket = RT::Ticket->new( $tester );
# tester is owner, owner has right to modify owned tickets,
# this right is required to set somebody as AdminCc
my ($tid, $txn_id, $msg) = $ticket->Create(
Queue => $queue->id,
Owner => $tester->id,
AdminCc => 'root@localhost',
);
diag $msg if $msg;
ok $tid, "created a ticket";
is $ticket->Owner, $tester->id, 'correct owner';
like $ticket->AdminCcAddresses, qr/root\@localhost/, 'root is there';
}
diag "check that previous trick doesn't work without sufficient rights";
{
RT::Test->set_rights(
{ Principal => $tester->PrincipalObj,
Right => [qw(SeeQueue ShowTicket CreateTicket OwnTicket)],
},
);
my $ticket = RT::Ticket->new( $tester );
# tester is owner, owner has right to modify owned tickets,
# this right is required to set somebody as AdminCc
my ($tid, $txn_id, $msg) = $ticket->Create(
Queue => $queue->id,
Owner => $tester->id,
AdminCc => 'root@localhost',
);
diag $msg if $msg;
ok $tid, "created a ticket";
is $ticket->Owner, $tester->id, 'correct owner';
unlike $ticket->AdminCcAddresses, qr/root\@localhost/, 'root is not there';
}
diag "check that deffering owner really works";
{
RT::Test->set_rights(
{ Principal => $tester->PrincipalObj,
Right => [qw(SeeQueue ShowTicket CreateTicket)],
},
{ Principal => $queue->Cc->PrincipalObj,
Object => $queue,
Right => [qw(OwnTicket TakeTicket)],
},
);
my $ticket = RT::Ticket->new( $tester );
# set tester as Cc, Cc role group has right to own and take tickets
my ($tid, $txn_id, $msg) = $ticket->Create(
Queue => $queue->id,
Owner => $tester->id,
Cc => 'tester@localhost',
);
diag $msg if $msg;
ok $tid, "created a ticket";
like $ticket->CcAddresses, qr/tester\@localhost/, 'tester is in the cc list';
is $ticket->Owner, $tester->id, 'tester is also owner';
my $owners = $ticket->OwnerGroup->MembersObj;
is $owners->Count, 1, 'one record in owner group';
is $owners->First->MemberObj->Id, $tester->id, 'and it is tester';
}
diag "check that deffering doesn't work without correct rights";
{
RT::Test->set_rights(
{ Principal => $tester->PrincipalObj,
Right => [qw(SeeQueue ShowTicket CreateTicket)],
},
);
my $ticket = RT::Ticket->new( $tester );
# set tester as Cc, Cc role group has right to own and take tickets
my ($tid, $txn_id, $msg);
warning_like {
($tid, $txn_id, $msg) = $ticket->Create(
Queue => $queue->id,
Owner => $tester->id,
Cc => 'tester@localhost',
);
} qr/User .* was proposed as a ticket owner but has no rights to own tickets in General/;
diag $msg if $msg;
ok $tid, "created a ticket";
like $ticket->CcAddresses, qr/tester\@localhost/, 'tester is in the cc list';
is $ticket->Owner, RT->Nobody->id, 'nobody is the owner';
my $owners = $ticket->OwnerGroup->MembersObj;
is $owners->Count, 1, 'one record in owner group';
is $owners->First->MemberObj->Id, RT->Nobody->id, 'and it is nobody';
}
done_testing;
|
