rt/t/lifecycles/unresolved-deps.t

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