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
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
|
use strict;
use warnings;
use RT::Test tests => undef;
BEGIN {
plan skip_all => 'Email::Abstract and Test::Email required.'
unless eval { require Email::Abstract; require Test::Email; 1 };
plan tests => 38;
}
use RT::Test::Email;
RT->Config->Set( LogToScreen => 'debug' );
RT->Config->Set( UseTransactionBatch => 1 );
my $q = RT::Queue->new(RT->SystemUser);
$q->Load('___Approvals');
$q->SetDisabled(0);
my %users;
for my $user_name (qw(minion cfo ceo )) {
my $user = $users{$user_name} = RT::User->new(RT->SystemUser);
$user->Create( Name => uc($user_name),
Privileged => 1,
EmailAddress => $user_name.'@company.com');
my ($val, $msg);
($val, $msg) = $user->PrincipalObj->GrantRight(Object =>$q, Right => $_)
for qw(ModifyTicket OwnTicket ShowTicket);
}
# XXX: we need to make the first approval ticket open so notification is sent.
my $approvals =
'===Create-Ticket: for-CFO
Queue: ___Approvals
Type: approval
Owner: CFO
Requestors: {$Tickets{"TOP"}->Requestors}
Refers-To: TOP
Subject: CFO Approval for PO: {$Tickets{"TOP"}->Id} - {$Tickets{"TOP"}->Subject}
Due: {time + 86400}
Content-Type: text/plain
Content: Your approval is requested for the PO ticket {$Tickets{"TOP"}->Id}: {$Tickets{"TOP"}->Subject}
Blah
Blah
ENDOFCONTENT
===Create-Ticket: for-CEO
Queue: ___Approvals
Type: approval
Owner: CEO
Requestors: {$Tickets{"TOP"}->Requestors}
Subject: PO approval request for {$Tickets{"TOP"}->Subject}
Refers-To: TOP
Depends-On: for-CFO
Depended-On-By: {$Tickets{"TOP"}->Id}
Content-Type: text/plain
Content:
Your CFO approved PO ticket {$Tickets{"TOP"}->Id} for minion. you ok with that?
ENDOFCONTENT
';
my $apptemp = RT::Template->new(RT->SystemUser);
$apptemp->Create( Content => $approvals, Name => "PO Approvals", Queue => "0");
ok($apptemp->Id);
$q = RT::Queue->new(RT->SystemUser);
$q->Create(Name => 'PO');
ok ($q->Id, "Created PO queue");
my $scrip = RT::Scrip->new(RT->SystemUser);
my ($sval, $smsg) =$scrip->Create( ScripCondition => 'On Create',
ScripAction => 'Create Tickets',
Template => 'PO Approvals',
Queue => $q->Id,
Description => 'Create Approval Tickets');
ok ($sval, $smsg);
ok ($scrip->Id, "Created the scrip");
ok ($scrip->TemplateObj->Id, "Created the scrip template");
ok ($scrip->ConditionObj->Id, "Created the scrip condition");
ok ($scrip->ActionObj->Id, "Created the scrip action");
my $t = RT::Ticket->new(RT->SystemUser);
my ($tid, $ttrans, $tmsg);
mail_ok {
($tid, $ttrans, $tmsg) =
$t->Create(Subject => "PO for stationary",
Owner => "root", Requestor => 'minion',
Queue => $q->Id);
} { from => qr/RT System/,
to => 'cfo@company.com',
subject => qr/New Pending Approval: CFO Approval/,
body => qr/pending your approval.*Your approval is requested.*Blah/s
},{ from => qr/PO via RT/,
to => 'minion@company.com',
subject => qr/PO for stationary/,
body => qr/automatically generated in response/
};
ok ($tid,$tmsg);
is ($t->ReferredToBy->Count,2, "referred to by the two tickets");
my $deps = $t->DependsOn;
is ($deps->Count, 1, "The ticket we created depends on one other ticket");
my $dependson_ceo= $deps->First->TargetObj;
ok ($dependson_ceo->Id, "It depends on a real ticket");
like($dependson_ceo->Subject, qr/PO approval request.*stationary/);
$deps = $dependson_ceo->DependsOn;
is ($deps->Count, 1, "The ticket we created depends on one other ticket");
my $dependson_cfo = $deps->First->TargetObj;
ok ($dependson_cfo->Id, "It depends on a real ticket");
like($dependson_cfo->Subject, qr/CFO Approval for PO.*stationary/);
is_deeply([ $t->Status, $dependson_cfo->Status, $dependson_ceo->Status ],
[ 'new', 'open', 'new'], 'tickets in correct state');
mail_ok {
my $cfo = RT::CurrentUser->new;
$cfo->Load( $users{cfo} );
$dependson_cfo->CurrentUser($cfo);
my $notes = MIME::Entity->build(
Data => [ 'Resources exist to be consumed.' ]
);
RT::I18N::SetMIMEEntityToUTF8($notes); # convert text parts into utf-8
my ( $notesval, $notesmsg ) = $dependson_cfo->Correspond( MIMEObj => $notes );
ok($notesval, $notesmsg);
my ($ok, $msg) = $dependson_cfo->SetStatus( Status => 'resolved' );
ok($ok, "cfo can approve - $msg");
} { from => qr/RT System/,
to => 'ceo@company.com',
subject => qr/New Pending Approval: PO approval request for PO/,
body => qr/pending your approval.*CFO approved.*ok with that\?/s
},{ from => qr/RT System/,
to => 'minion@company.com',
subject => qr/Ticket Approved:/,
body => qr/approved by CFO.*notes: Resources exist to be consumed/s
};
is ($t->DependsOn->Count, 1, "still depends only on the CEO approval");
is ($t->ReferredToBy->Count,2, "referred to by the two tickets");
is_deeply([ $t->Status, $dependson_cfo->Status, $dependson_ceo->Status ],
[ 'new', 'resolved', 'open'], 'ticket state after cfo approval');
mail_ok {
my $ceo = RT::CurrentUser->new;
$ceo->Load( $users{ceo} );
$dependson_ceo->CurrentUser($ceo);
my $notes = MIME::Entity->build(
Data => [ 'And consumed they will be.' ]
);
RT::I18N::SetMIMEEntityToUTF8($notes); # convert text parts into utf-8
my ( $notesval, $notesmsg ) = $dependson_ceo->Correspond( MIMEObj => $notes );
ok($notesval, $notesmsg);
my ($ok, $msg) = $dependson_ceo->SetStatus( Status => 'resolved' );
ok($ok, "ceo can approve - $msg");
} { from => qr/RT System/,
to => 'minion@company.com',
subject => qr/Ticket Approved:/,
body => qr/approved by CEO.*Its Owner may now start to act on it.*notes: And consumed they will be/s,
}, { from => qr/CEO via RT/,
to => 'root@localhost',
subject => qr/Ticket Approved/,
body => qr/The ticket has been approved, you may now start to act on it/,
};
is_deeply([ $t->Status, $dependson_cfo->Status, $dependson_ceo->Status ],
[ 'new', 'resolved', 'resolved'], 'ticket state after ceo approval');
$dependson_cfo->_Set(
Field => 'Status',
Value => 'open');
$dependson_ceo->_Set(
Field => 'Status',
Value => 'new');
mail_ok {
my $cfo = RT::CurrentUser->new;
$cfo->Load( $users{cfo} );
$dependson_cfo->CurrentUser($cfo);
my $notes = MIME::Entity->build(
Data => [ 'sorry, out of resources.' ]
);
RT::I18N::SetMIMEEntityToUTF8($notes); # convert text parts into utf-8
my ( $notesval, $notesmsg ) = $dependson_cfo->Correspond( MIMEObj => $notes );
ok($notesval, $notesmsg);
my ($ok, $msg) = $dependson_cfo->SetStatus( Status => 'rejected' );
ok($ok, "cfo can approve - $msg");
} { from => qr/RT System/,
to => 'minion@company.com',
subject => qr/Ticket Rejected: PO for stationary/,
body => qr/rejected by CFO.*out of resources/s,
};
$t->Load($t->id);$dependson_ceo->Load($dependson_ceo->id);
is_deeply([ $t->Status, $dependson_cfo->Status, $dependson_ceo->Status ],
[ 'rejected', 'rejected', 'deleted'], 'ticket state after cfo rejection');
|
