rt/t/lifecycles/unresolved-deps.t

   1 use strict;
   2 use warnings;
   3
   4 BEGIN {require  './t/lifecycles/utils.pl'};
   5
   6 my $general = RT::Test->load_or_create_queue(
   7     Name => 'General',
   8 );
   9 ok $general && $general->id, 'loaded or created a queue';
  10
  11 # different value tested in basics
  12 RT->Config->Set('HideResolveActionsWithDependencies' => 1);
  13
  14 my ($baseurl, $m) = RT::Test->started_ok;
  15 ok $m->login, 'logged in';
  16
  17 {
  18     my $child_ticket = RT::Test->create_ticket(
  19         Queue => $general->id,
  20         Subject => 'child',
  21     );
  22     my $cid = $child_ticket->id;
  23     my $parent_ticket = RT::Test->create_ticket(
  24         Queue => $general->id,
  25         Subject => 'parent',
  26         DependsOn => $child_ticket->id,
  27     );
  28     my $pid = $parent_ticket->id;
  29
  30     ok $m->goto_ticket( $pid ), 'opened a ticket';
  31     $m->check_links(
  32         has => ['Open It'],
  33         has_no => ['Stall', 'Re-open', 'Undelete', 'Resolve', 'Reject', 'Delete'],
  34     );
  35     ok $m->goto_ticket( $cid ), 'opened a ticket';
  36     $m->check_links(
  37         has => ['Open It', 'Resolve', 'Reject', 'Delete'],
  38         has_no => ['Stall', 'Re-open', 'Undelete'],
  39     );
  40 }
  41
  42 undef $m;
  43 done_testing;