rt/t/web/command_line.t

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