5 use RT::Test tests => undef, actual_server => 1;
6 my ($baseurl, $m) = RT::Test->started_ok;
11 my $rt_tool_path = "$RT::BinPath/rt";
16 # - server <URL> URL to RT server.
17 # - user <username> RT username.
18 # - passwd <passwd> RT user's password.
19 # - query <RT Query> Default RT Query for list action
20 # - orderby <order> Default RT order for list action
22 # Blank and #-commented lines are ignored.
24 # environment variables
25 # The following environment variables override any corresponding
26 # values defined in configuration files:
29 $ENV{'RTUSER'} = 'root';
31 $ENV{'RTPASSWD'} = 'password';
33 $RT::Logger->debug("Connecting to server at ".RT->Config->Get('WebBaseURL'));
34 $ENV{'RTSERVER'} =RT->Config->Get('WebBaseURL') ;
35 # - RTDEBUG Numeric debug level. (Set to 3 for full logs.)
36 $ENV{'RTDEBUG'} = '1';
37 # - RTCONFIG Specifies a name other than ".rtrc" for the
39 $ENV{'RTCONFIG'} = '/dev/null';
41 # - RTQUERY Default RT Query for rt list
42 # - RTORDERBY Default order for rt list
49 command => "$rt_tool_path shell",
53 expect_send(q{create -t ticket set subject='new ticket' add cc=foo@example.com}, "Creating a ticket...");
55 expect_like(qr/Ticket \d+ created/, "Created the ticket");
56 expect_handle->before() =~ /Ticket (\d+) created/;
58 ok($ticket_id, "Got ticket id=$ticket_id");
59 expect_send(q{create -t ticket set subject='new ticket'}, "Creating a ticket as just a subject...");
60 expect_like(qr/Ticket \d+ created/, "Created the ticket");
62 # make sure we can request things as 'rt foo'
63 expect_send(q{rt create -t ticket set subject='rt ticket'}, "Creating a ticket with 'rt create'...");
64 expect_like(qr/Ticket \d+ created/, "Created the ticket");
68 expect_send("create -t queue set Name='NewQueue$$'", 'Creating a queue...');
69 expect_like(qr/Queue \d+ created/, 'Created the queue');
70 expect_handle->before() =~ /Queue (\d+) created/;
72 ok($queue_id, "Got queue id=$queue_id");
74 expect_send("edit queue/$queue_id set Name='EditedQueue$$'", 'Editing the queue');
75 expect_like(qr/Queue $queue_id updated/, 'Edited the queue');
76 expect_send("show queue/$queue_id", 'Showing the queue...');
77 expect_like(qr/id: queue\/$queue_id/, 'Saw the queue');
78 expect_like(qr/Name: EditedQueue$$/, 'Saw the modification');
80 todo_skip "Listing non-ticket items doesn't work", 2;
81 expect_send("list -t queue 'id > 0'", 'Listing the queues...');
82 expect_like(qr/$queue_id: EditedQueue$$/, 'Found the queue');
85 # Queues with spaces in their names
86 expect_send("create -t queue set Name='Spaced Out'", 'Creating a queue...');
87 expect_like(qr/Queue \d+ created/, 'Created the queue');
88 expect_handle->before() =~ /Queue (\d+) created/;
90 ok($other_queue, "Got queue id=$other_queue");
91 expect_send("show 'queue/Spaced Out'", 'Showing the queue...');
92 expect_like(qr/id: queue\/$other_queue/, 'Saw the queue');
93 expect_like(qr/Name: Spaced Out/, 'Saw the modification');
97 # Set up a custom field for editing tests
98 my $cf = RT::CustomField->new(RT->SystemUser);
99 my ($val,$msg) = $cf->Create(Name => 'MyCF'.$$, Type => 'FreeformSingle', Queue => $queue_id);
102 my $othercf = RT::CustomField->new(RT->SystemUser);
103 ($val,$msg) = $othercf->Create(Name => 'My CF'.$$, Type => 'FreeformSingle', Queue => $queue_id);
106 my $multiple_cf = RT::CustomField->new(RT->SystemUser);
107 ($val,$msg) = $multiple_cf->Create(Name => 'MultipleCF'.$$, Type =>
108 'FreeformMultiple', Queue => $queue_id);
112 # add a comment to ticket
113 expect_send("comment -m 'comment-$$' $ticket_id", "Adding a comment...");
114 expect_like(qr/Message recorded/, "Added the comment");
115 ### should test to make sure it actually got added
116 # add correspondance to ticket (?)
117 expect_send("correspond -m 'correspond-$$' $ticket_id", "Adding correspondence...");
118 expect_like(qr/Message recorded/, "Added the correspondence");
119 ### should test to make sure it actually got added
121 my $test_email = RT::Test::get_relocatable_file('lorem-ipsum',
122 (File::Spec->updir(), 'data', 'emails'));
123 # add attachments to a ticket
125 check_attachment($test_email);
127 check_attachment($RT::MasonComponentRoot.'/NoAuth/images/bpslogo.png');
129 # change a ticket's Owner
130 expect_send("edit ticket/$ticket_id set owner=root", 'Changing owner...');
131 expect_like(qr/Ticket $ticket_id updated/, 'Changed owner');
132 expect_send("show ticket/$ticket_id -f owner", 'Verifying change...');
133 expect_like(qr/Owner: root/, 'Verified change');
134 # change a ticket's Requestor
135 expect_send("edit ticket/$ticket_id set requestors=foo\@example.com", 'Changing Requestor...');
136 expect_like(qr/Ticket $ticket_id updated/, 'Changed Requestor');
137 expect_send("show ticket/$ticket_id -f requestors", 'Verifying change...');
138 expect_like(qr/Requestors: foo\@example.com/, 'Verified change');
139 # set multiple Requestors
140 expect_send("edit ticket/$ticket_id set requestors=foo\@example.com,bar\@example.com", 'Changing Requestor...');
141 expect_like(qr/Ticket $ticket_id updated/, 'Changed Requestor');
142 expect_send("show ticket/$ticket_id -f requestors", 'Verifying change...');
143 expect_like(qr/Requestors: bar\@example.com, foo\@example.com/, 'Verified change');
144 # change a ticket's Cc
145 expect_send("edit ticket/$ticket_id set cc=bar\@example.com", 'Changing Cc...');
146 expect_like(qr/Ticket $ticket_id updated/, 'Changed Cc');
147 expect_send("show ticket/$ticket_id -f cc", 'Verifying change...');
148 expect_like(qr/Cc: bar\@example.com/, 'Verified change');
149 # change a ticket's priority
150 expect_send("edit ticket/$ticket_id set priority=10", 'Changing priority...');
151 expect_like(qr/Ticket $ticket_id updated/, 'Changed priority');
152 expect_send("show ticket/$ticket_id -f priority", 'Verifying change...');
153 expect_like(qr/Priority: 10/, 'Verified change');
154 # move a ticket to a different queue
155 expect_send("edit ticket/$ticket_id set queue=EditedQueue$$", 'Changing queue...');
156 expect_like(qr/Ticket $ticket_id updated/, 'Changed queue');
157 expect_send("show ticket/$ticket_id -f queue", 'Verifying change...');
158 expect_like(qr/Queue: EditedQueue$$/, 'Verified change');
159 # cannot move ticket to a nonexistent queue
160 expect_send("edit ticket/$ticket_id set queue=nonexistent-$$", 'Changing to nonexistent queue...');
161 expect_like(qr/queue does not exist/i, 'Errored out');
162 expect_send("show ticket/$ticket_id -f queue", 'Verifying lack of change...');
163 expect_like(qr/Queue: EditedQueue$$/, 'Verified lack of change');
165 # Test reading and setting custom fields without spaces
166 expect_send("show ticket/$ticket_id -f CF-myCF$$", 'Checking initial value');
167 expect_like(qr/\QCF.{myCF$$}\E:/i, 'Verified initial empty value (CF-x syntax)');
168 expect_send("show ticket/$ticket_id -f CF.{myCF$$}", 'Checking initial value');
169 expect_like(qr/\QCF.{myCF$$}\E:/i, 'Verified initial empty value (CF.{x} syntax)');
171 expect_send("edit ticket/$ticket_id set 'CF-myCF$$=VALUE' ", 'Changing CF...');
172 expect_like(qr/Ticket $ticket_id updated/, 'Changed cf');
173 expect_send("show ticket/$ticket_id -f CF-myCF$$", 'Checking new value');
174 expect_like(qr/\QCF.{myCF$$}\E: VALUE/i, 'Verified change');
175 # Test setting 0 as value of the custom field
176 expect_send("edit ticket/$ticket_id set 'CF-myCF$$=0' ", 'Changing CF...');
177 expect_like(qr/Ticket $ticket_id updated/, 'Changed cf');
178 expect_send("show ticket/$ticket_id -f CF-myCF$$", 'Checking new value');
179 expect_like(qr/\QCF.{myCF$$}\E: 0/i, 'Verified change');
181 expect_send("edit ticket/$ticket_id set 'CF.{myCF$$}=VALUE' ",'Changing CF...');
182 expect_like(qr/Ticket $ticket_id updated/, 'Changed cf');
183 expect_send("show ticket/$ticket_id -f CF.{myCF$$}", 'Checking new value');
184 expect_like(qr/\QCF.{myCF$$}\E: VALUE/i, 'Verified change');
185 # Test setting 0 as value of the custom field
186 expect_send("edit ticket/$ticket_id set 'CF.{myCF$$}=0' ", 'Changing CF...');
187 expect_like(qr/Ticket $ticket_id updated/, 'Changed cf');
188 expect_send("show ticket/$ticket_id -f CF.{myCF$$}", 'Checking new value');
189 expect_like(qr/\QCF.{myCF$$}\E: 0/i, 'Verified change');
191 # Test reading and setting custom fields with spaces
192 expect_send("show ticket/$ticket_id -f 'CF-my CF$$'", 'Checking initial value');
193 expect_like(qr/\QCF.{my CF$$}\E:/i, 'Verified change');
194 expect_send("edit ticket/$ticket_id set 'CF-my CF$$=VALUE' ", 'Changing CF...');
195 expect_like(qr/Ticket $ticket_id updated/, 'Changed cf');
196 expect_send("show ticket/$ticket_id -f 'CF-my CF$$'", 'Checking new value');
197 expect_like(qr/\QCF.{my CF$$}\E: VALUE/i, 'Verified change');
198 expect_send("ls -l 'id = $ticket_id' -f 'CF-my CF$$'", 'Checking new value');
199 expect_like(qr/\QCF.{my CF$$}\E: VALUE/i, 'Verified change');
201 expect_send("show ticket/$ticket_id -f 'CF.{my CF$$}'", 'Checking initial value');
202 expect_like(qr/\QCF.{my CF$$}\E: VALUE/i, 'Verified change');
203 expect_send("edit ticket/$ticket_id set 'CF.{my CF$$}=NEW' ", 'Changing CF...');
204 expect_send("show ticket/$ticket_id -f 'CF.{my CF$$}'", 'Checking new value');
205 expect_like(qr/\QCF.{my CF$$}\E: NEW/i, 'Verified change');
206 expect_send("ls -l 'id = $ticket_id' -f 'CF.{my CF$$}'", 'Checking new value');
207 expect_like(qr/\QCF.{my CF$$}\E: NEW/i, 'Verified change');
209 # Test reading and setting single value custom field with commas or quotes
210 expect_send("show ticket/$ticket_id -f CF-myCF$$", 'Checking initial value');
211 expect_like(qr/\QCF.{myCF$$}\E:/i, 'Verified change');
212 expect_send("edit ticket/$ticket_id set CF-myCF$$=1,2,3", 'Changing CF...');
213 expect_like(qr/Ticket $ticket_id updated/, 'Changed cf');
214 expect_send("show ticket/$ticket_id -f CF-myCF$$", 'Checking new value');
215 expect_like(qr/\QCF.{myCF$$}\E: 1,2,3/i, 'Verified change');
216 expect_send("edit ticket/$ticket_id set CF-myCF$$=\"1's,2,3\"", 'Changing CF...');
217 expect_like(qr/Ticket $ticket_id updated/, 'Changed cf');
218 expect_send("show ticket/$ticket_id -f CF-myCF$$", 'Checking new value');
219 expect_like(qr/\QCF.{myCF$$}\E: 1's,2,3/i, 'Verified change');
221 # Test reading and setting custom fields with multiple values
222 expect_send("show ticket/$ticket_id -f CF-MultipleCF$$", 'Checking initial value');
223 expect_like(qr/\QCF.{MultipleCF$$}\E:/i, 'Verified multiple cf change');
224 expect_send("edit ticket/$ticket_id set CF.{MultipleCF$$}=1,2,3 ", 'Changing CF...');
225 expect_like(qr/Ticket $ticket_id updated/, 'Changed multiple cf');
226 expect_send("show ticket/$ticket_id -f CF.{MultipleCF$$}", 'Checking new value');
227 expect_like(qr/\QCF.{MultipleCF$$}\E: 1,\s*2,\s*3/i, 'Verified multiple cf change');
228 expect_send("edit ticket/$ticket_id set CF.{MultipleCF$$}=a,b,c ", 'Changing CF...');
229 expect_like(qr/Ticket $ticket_id updated/, 'Changed multiple cf');
230 expect_send("show ticket/$ticket_id -f CF.{MultipleCF$$}", 'Checking new value');
231 expect_like(qr/\QCF.{MultipleCF$$}\E: a,\s*b,\s*c/i, 'Verified change');
232 expect_send("edit ticket/$ticket_id del CF.{MultipleCF$$}=a", 'Changing CF...');
233 expect_like(qr/Ticket $ticket_id updated/, 'del multiple cf');
234 expect_send("show ticket/$ticket_id -f CF.{MultipleCF$$}", 'Checking new value');
235 expect_like(qr/\QCF.{MultipleCF$$}\E: b,\s*c/i, 'Verified multiple cf change');
236 expect_send("edit ticket/$ticket_id add CF.{MultipleCF$$}=o", 'Changing CF...');
237 expect_like(qr/Ticket $ticket_id updated/, 'Changed multiple cf');
238 expect_send("show ticket/$ticket_id -f CF.{MultipleCF$$}", 'Checking new value');
239 expect_like(qr/\QCF.{MultipleCF$$}\E: b,\s*c,\s*o/i, 'Verified multiple cf change');
241 expect_send("edit ticket/$ticket_id set CF.{MultipleCF$$}=\"'a,b,c'\" ", 'Changing CF...');
242 expect_like(qr/Ticket $ticket_id updated/, 'Changed multiple cf');
243 expect_send("show ticket/$ticket_id -f CF.{MultipleCF$$}", 'Checking new value');
244 expect_like(qr/\QCF.{MultipleCF$$}\E: 'a,b,c'/i, 'Verified change');
245 expect_send("edit ticket/$ticket_id del CF.{MultipleCF$$}=a", 'Changing CF...');
246 expect_like(qr/Ticket $ticket_id updated/, 'Changed multiple cf');
247 expect_send("show ticket/$ticket_id -f CF.{MultipleCF$$}", 'Checking new value');
248 expect_like(qr/\QCF.{MultipleCF$$}\E: 'a,b,c'/i, 'Verified change');
250 expect_send("edit ticket/$ticket_id set CF.{MultipleCF$$}=q{a,b,c}", 'Changing CF...');
251 expect_like(qr/Ticket $ticket_id updated/, 'Changed multiple cf');
252 expect_send("show ticket/$ticket_id -f CF.{MultipleCF$$}", 'Checking new value');
253 expect_like(qr/\QCF.{MultipleCF$$}\E: 'a,b,c'/i, 'Verified change');
254 expect_send("edit ticket/$ticket_id del CF.{MultipleCF$$}=a", 'Changing CF...');
255 expect_like(qr/Ticket $ticket_id updated/, 'Changed multiple cf');
256 expect_send("show ticket/$ticket_id -f CF.{MultipleCF$$}", 'Checking new value');
257 expect_like(qr/\QCF.{MultipleCF$$}\E: 'a,b,c'/i, 'Verified change');
258 expect_send("edit ticket/$ticket_id del CF.{MultipleCF$$}=\"'a,b,c'\"", 'Changing CF...');
259 expect_like(qr/Ticket $ticket_id updated/, 'Changed multiple cf');
260 expect_send("show ticket/$ticket_id -f CF.{MultipleCF$$}", 'Checking new value');
261 expect_like(qr/\QCF.{MultipleCF$$}\E: \s*$/i, 'Verified change');
263 expect_send("edit ticket/$ticket_id set CF.{MultipleCF$$}=\"q{1,2's,3}\"", 'Changing CF...');
264 expect_like(qr/Ticket $ticket_id updated/, 'Changed multiple cf');
265 expect_send("show ticket/$ticket_id -f CF.{MultipleCF$$}", 'Checking new value');
266 expect_like(qr/\QCF.{MultipleCF$$}\E: '1,2\\'s,3'/i, 'Verified change');
269 # change a ticket's ...[other properties]...
272 expect_send("edit ticket/$ticket_id set status=stalled", 'Changing status to "stalled"...');
273 expect_like(qr/Ticket $ticket_id updated/, 'Changed status');
274 expect_send("show ticket/$ticket_id -f status", 'Verifying change...');
275 expect_like(qr/Status: stalled/, 'Verified change');
277 expect_send("edit ticket/$ticket_id set status=resolved", 'Changing status to "resolved"...');
278 expect_like(qr/Ticket $ticket_id updated/, 'Changed status');
279 expect_send("show ticket/$ticket_id -f status", 'Verifying change...');
280 expect_like(qr/Status: resolved/, 'Verified change');
281 # try to set status to an illegal value
282 expect_send("edit ticket/$ticket_id set status=quux", 'Changing status to an illegal value...');
283 expect_like(qr/isn't a valid status/i, 'Errored out');
284 expect_send("show ticket/$ticket_id -f status", 'Verifying lack of change...');
285 expect_like(qr/Status: resolved/, 'Verified change');
290 expect_send("ls -s -t ticket -o +id \"Status='resolved'\"", 'Listing resolved tickets...');
291 expect_like(qr/$ticket_id: new ticket/, 'Found our ticket');
293 expect_send("ls -s -t ticket -f Requestors $ticket_id", 'getting Requestors');
294 expect_like(qr/$ticket_id\s+bar\@example.com,\s+foo\@example.com/, 'got Requestors');
296 # show ticket list verbosely
297 expect_send("ls -l -t ticket -o +id \"Status='resolved'\"", 'Listing resolved tickets verbosely...');
298 expect_like(qr/id: ticket\/$ticket_id/, 'Found our ticket');
300 expect_send("show -s -t ticket $ticket_id", 'Showing our ticket...');
301 expect_like(qr/id: ticket\/$ticket_id/, 'Got our ticket');
302 # show ticket history
303 expect_send("show ticket/$ticket_id/history", 'Showing our ticket\'s history...');
304 expect_like(qr/Ticket created by root/, 'Got our history');
306 expect_send("show -v ticket/$ticket_id/history", 'Showing our ticket\'s history verbosely...');
308 local $TODO = "Cannot show verbose ticket history right now";
309 # show ticket history verbosely
310 expect_like(qr/Ticket created by root/, 'Got our history');
312 # get attachments from a ticket
313 expect_send("show -s ticket/$ticket_id/attachments", 'Showing ticket attachments...');
314 expect_like(qr/id: ticket\/$ticket_id\/attachments/, 'Got our ticket\'s attachments');
315 expect_like(qr/Attachments: \d+: \(Unnamed\) \(\S+ \/ \d+\w+\)/, 'Our ticket has an attachment');
316 expect_handle->before() =~ /Attachments: (\d+): \(Unnamed\) \((\S+)/;
317 my $attachment_id = $1;
318 my $attachment_type = $2;
319 ok($attachment_id, "Got attachment id=$attachment_id $attachment_type");
320 expect_send("show -s ticket/$ticket_id/attachments/$attachment_id", "Showing attachment $attachment_id...");
321 expect_like(qr/ContentType: $attachment_type/, 'Got the attachment');
326 expect_send("create -t user set Name='NewUser$$' EmailAddress='fbar$$\@example.com'", 'Creating a user...');
327 expect_like(qr/User \d+ created/, 'Created the user');
328 expect_handle->before() =~ /User (\d+) created/;
330 ok($user_id, "Got user id=$user_id");
332 expect_send("edit user/$user_id set Name='EditedUser$$'", 'Editing the user');
333 expect_like(qr/User $user_id updated/, 'Edited the user');
334 expect_send("show user/$user_id", 'Showing the user...');
335 expect_like(qr/id: user\/$user_id/, 'Saw the user');
336 expect_like(qr/Name: EditedUser$$/, 'Saw the modification');
338 todo_skip "Listing non-ticket items doesn't work", 2;
339 expect_send("list -t user 'id > 0'", 'Listing the users...');
340 expect_like(qr/$user_id: EditedUser$$/, 'Found the user');
346 todo_skip "Group manipulation doesn't work right now", 8;
348 expect_send("create -t group set Name='NewGroup$$'", 'Creating a group...');
349 expect_like(qr/Group \d+ created/, 'Created the group');
350 expect_handle->before() =~ /Group (\d+) created/;
352 ok($group_id, "Got group id=$group_id");
354 expect_send("edit group/$group_id set Name='EditedGroup$$'", 'Editing the group');
355 expect_like(qr/Group $group_id updated/, 'Edited the group');
356 expect_send("show group/$group_id", 'Showing the group...');
357 expect_like(qr/id: group\/$group_id/, 'Saw the group');
358 expect_like(qr/Name: EditedGroup$$/, 'Saw the modification');
360 local $TODO = "Listing non-ticket items doesn't work";
361 expect_send("list -t group 'id > 0'", 'Listing the groups...');
362 expect_like(qr/$group_id: EditedGroup$$/, 'Found the group');
368 todo_skip "Custom field manipulation not yet implemented", 8;
370 # creating custom fields
371 expect_send("create -t custom_field set Name='NewCF$$'", 'Creating a custom field...');
372 expect_like(qr/Custom Field \d+ created/, 'Created the custom field');
373 expect_handle->before() =~ /Custom Field (\d+) created/;
375 ok($cf_id, "Got custom field id=$cf_id");
376 # updating custom fields
377 expect_send("edit cf/$cf_id set Name='EditedCF$$'", 'Editing the custom field');
378 expect_like(qr/Custom field $cf_id updated/, 'Edited the custom field');
379 expect_send("show cf/$cf_id", 'Showing the queue...');
380 expect_like(qr/id: custom_field\/$cf_id/, 'Saw the custom field');
381 expect_like(qr/Name: EditedCF$$/, 'Saw the modification');
383 todo_skip "Listing non-ticket items doesn't work", 2;
384 expect_send("list -t custom_field 'id > 0'", 'Listing the CFs...');
385 expect_like(qr/$cf_id: EditedCF$$/, 'Found the custom field');
390 expect_send("create -t ticket set subject='CLIMergeTest1-$$'", 'Creating first ticket to merge...');
391 expect_like(qr/Ticket \d+ created/, 'Created first ticket');
392 expect_handle->before() =~ /Ticket (\d+) created/;
393 my $merge_ticket_A = $1;
394 ok($merge_ticket_A, "Got first ticket to merge id=$merge_ticket_A");
395 expect_send("create -t ticket set subject='CLIMergeTest2-$$'", 'Creating second ticket to merge...');
396 expect_like(qr/Ticket \d+ created/, 'Created second ticket');
397 expect_handle->before() =~ /Ticket (\d+) created/;
398 my $merge_ticket_B = $1;
399 ok($merge_ticket_B, "Got second ticket to merge id=$merge_ticket_B");
400 expect_send("merge $merge_ticket_B $merge_ticket_A", 'Merging the tickets...');
401 expect_like(qr/Merge completed/, 'Merged the tickets');
403 expect_send("show ticket/$merge_ticket_A/history", 'Checking merge on first ticket');
404 expect_like(qr/Merged into ticket #$merge_ticket_A by root/, 'Merge recorded in first ticket');
405 expect_send("show ticket/$merge_ticket_B/history", 'Checking merge on second ticket');
406 expect_like(qr/Merged into ticket #$merge_ticket_A by root/, 'Merge recorded in second ticket');
409 # create a user; give them privileges to take and steal
410 ### TODO: implement 'grant' in the CLI tool; use that here instead.
411 ### this breaks the abstraction barrier, like, a lot.
412 my $steal_user = RT::User->new(RT->SystemUser);
413 my ($steal_user_id, $msg) = $steal_user->Create( Name => "fooser$$",
414 EmailAddress => "fooser$$\@localhost",
416 Password => 'foobar',
418 ok($steal_user_id, "Created the user? $msg");
419 my $steal_queue = RT::Queue->new(RT->SystemUser);
421 ($steal_queue_id, $msg) = $steal_queue->Create( Name => "Steal$$" );
422 ok($steal_queue_id, "Got the queue? $msg");
423 ok($steal_queue->id, "queue obj has id");
425 ($status, $msg) = $steal_user->PrincipalObj->GrantRight( Right => 'ShowTicket', Object => $steal_queue );
426 ok($status, "Gave 'ShowTicket' to our user? $msg");
427 ($status, $msg) = $steal_user->PrincipalObj->GrantRight( Right => 'OwnTicket', Object => $steal_queue );
428 ok($status, "Gave 'OwnTicket' to our user? $msg");
429 ($status, $msg) = $steal_user->PrincipalObj->GrantRight( Right => 'StealTicket', Object => $steal_queue );
430 ok($status, "Gave 'StealTicket' to our user? $msg");
431 ($status, $msg) = $steal_user->PrincipalObj->GrantRight( Right => 'TakeTicket', Object => $steal_queue );
432 ok($status, "Gave 'TakeTicket' to our user? $msg");
434 # create a ticket to take/steal
435 expect_send("create -t ticket set queue=$steal_queue_id subject='CLIStealTest-$$'", 'Creating ticket to steal...');
436 expect_like(qr/Ticket \d+ created/, 'Created ticket');
437 expect_handle->before() =~ /Ticket (\d+) created/;
438 my $steal_ticket_id = $1;
439 ok($steal_ticket_id, "Got ticket to steal id=$steal_ticket_id");
441 # root takes the ticket
442 expect_send("take $steal_ticket_id", 'root takes the ticket...');
443 expect_like(qr/Owner changed from Nobody to root/, 'root took the ticket');
446 # log in as the non-root user
447 $ENV{'RTUSER'} = "fooser$$";
448 $ENV{'RTPASSWD'} = 'foobar';
449 expect_run( command => "$rt_tool_path shell", prompt => 'rt> ', quit => 'quit',);
451 # user tries to take the ticket, fails
452 # shouldn't be able to 'take' a ticket which someone else has taken out from
453 # under you; that should produce an error. should have to explicitly
454 # 'steal' it back from them. 'steal' can automatically 'take' a ticket,
456 expect_send("take $steal_ticket_id", 'user tries to take the ticket...');
457 expect_like(qr/You can only take tickets that are unowned/, '...and fails.');
458 expect_send("show ticket/$steal_ticket_id -f owner", 'Double-checking...');
459 expect_like(qr/Owner: root/, '...no change.');
461 # user steals the ticket
462 expect_send("steal $steal_ticket_id", 'user tries to *steal* the ticket...');
463 expect_like(qr/Owner changed from root to fooser$$/, '...and succeeds!');
464 expect_send("show ticket/$steal_ticket_id -f owner", 'Double-checking...');
465 expect_like(qr/Owner: fooser$$/, '...yup, it worked.');
468 # log back in as root
469 $ENV{'RTUSER'} = 'root';
470 $ENV{'RTPASSWD'} = 'password';
471 expect_run( command => "$rt_tool_path shell", prompt => 'rt> ', quit => 'quit',);
473 # root steals the ticket back
474 expect_send("steal $steal_ticket_id", 'root steals the ticket back...');
475 expect_like(qr/Owner changed from fooser$$ to root/, '...and succeeds.');
478 my @link_relns = ( 'DependsOn', 'DependedOnBy', 'RefersTo', 'ReferredToBy',
479 'MemberOf', 'HasMember', );
480 my %display_relns = map { $_ => $_ } @link_relns;
481 $display_relns{HasMember} = 'Members';
483 my $link1_id = ok_create_ticket( "LinkTicket1-$$" );
484 my $link2_id = ok_create_ticket( "LinkTicket2-$$" );
486 foreach my $reln (@link_relns) {
488 expect_send("link $link1_id $reln $link2_id", "Link by $reln...");
489 expect_like(qr/Created link $link1_id $reln $link2_id/, 'Linked');
490 expect_send("show -s ticket/$link1_id/links", "Checking creation of $reln...");
491 expect_like(qr/$display_relns{$reln}: [\w\d\.\-]+:\/\/[\w\d\.]+\/ticket\/$link2_id/, "Created link $reln");
492 expect_send("show ticket/$link1_id/links", "Checking show links without format");
493 expect_like(qr/$display_relns{$reln}: [\w\d\.\-]+:\/\/[\w\d\.]+\/ticket\/$link2_id/, "Found link $reln");
496 expect_send("link -d $link1_id $reln $link2_id", "Delete $reln...");
497 expect_like(qr/Deleted link $link1_id $reln $link2_id/, 'Deleted');
498 expect_send("show ticket/$link1_id/links", "Checking removal of $reln...");
499 ok( expect_handle->before() !~ /\Q$display_relns{$reln}: \E[\w\d\.\-]+:\/\/[w\d\.]+\/ticket\/$link2_id/, "Removed link $reln" );
500 #expect_unlike(qr/\Q$reln: \E[\w\d\.]+\Q://\E[w\d\.]+\/ticket\/$link2_id/, "Removed link $reln");
504 expect_quit(); # We need to do this ourselves, so that we quit
505 # *before* we tear down the webserver.
508 sub ok_create_ticket {
511 expect_send("create -t ticket set subject='$subject'", 'Creating ticket...');
512 expect_like(qr/Ticket \d+ created/, "Created ticket '$subject'");
513 expect_handle->before() =~ /Ticket (\d+) created/;
515 ok($id, "Got ticket id=$id");
520 # wrap up all the file handling stuff for attachment testing
521 sub check_attachment {
522 my $attachment_path = shift;
523 (my $filename = $attachment_path) =~ s/.*\/(.*)$/$1/;
524 expect_send("comment -m 'attach file' -a $attachment_path $ticket_id", "Adding an attachment ($filename)");
525 expect_like(qr/Message recorded/, "Added the attachment");
526 expect_send("show ticket/$ticket_id/attachments","Finding Attachment");
527 my $attachment_regex = qr/(\d+):\s+$filename/;
528 expect_like($attachment_regex,"Attachment Uploaded");
529 expect_handle->before() =~ $attachment_regex;
530 my $attachment_id = $1;
531 expect_send("show ticket/$ticket_id/attachments/$attachment_id/content","Fetching Attachment");
532 open( my $fh, '<', $attachment_path ) or die "Can't open $attachment_path: $!";
533 my $attachment_content = do { local($/); <$fh> };
535 chomp $attachment_content;
537 local $TODO = "Binary PNG content is getting mangled somewhere along the way"
538 if $attachment_path =~ /\.png$/;
539 expect_is($attachment_content,"Attachment contains original text");
543 # you may encounter warning like Use of uninitialized value $ampm
544 # ... in Time::ParseDate
545 my @warnings = grep { $_ !~ /\$ampm/ } $m->get_warnings;
546 is( scalar @warnings, 0, 'no extra warnings' );
551 1; # needed to avoid a weird exit value from expect_quit