rt/t/lifecycles/unresolved-deps.t

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