diff options
Diffstat (limited to 'rt/t/lifecycles/unresolved-deps.t')
-rw-r--r-- | rt/t/lifecycles/unresolved-deps.t | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/rt/t/lifecycles/unresolved-deps.t b/rt/t/lifecycles/unresolved-deps.t new file mode 100644 index 000000000..aff9a1a56 --- /dev/null +++ b/rt/t/lifecycles/unresolved-deps.t @@ -0,0 +1,45 @@ +#!/usr/bin/perl + +use strict; +use warnings; +use Data::Dumper; + +use Test::More tests => 15; +BEGIN {require 't/lifecycles/utils.pl'}; + +my $general = RT::Test->load_or_create_queue( + Name => 'General', +); +ok $general && $general->id, 'loaded or created a queue'; + +# different value tested in basics +RT->Config->Set('HideResolveActionsWithDependencies' => 1); + +my ($baseurl, $m) = RT::Test->started_ok; +ok $m->login, 'logged in'; + +{ + my $child_ticket = RT::Test->create_ticket( + Queue => $general->id, + Subject => 'child', + ); + my $cid = $child_ticket->id; + my $parent_ticket = RT::Test->create_ticket( + Queue => $general->id, + Subject => 'parent', + DependsOn => $child_ticket->id, + ); + my $pid = $parent_ticket->id; + + ok $m->goto_ticket( $pid ), 'opened a ticket'; + $m->check_links( + has => ['Open It'], + has_no => ['Stall', 'Re-open', 'Undelete', 'Resolve', 'Reject', 'Delete'], + ); + ok $m->goto_ticket( $cid ), 'opened a ticket'; + $m->check_links( + has => ['Open It', 'Resolve', 'Reject', 'Delete'], + has_no => ['Stall', 'Re-open', 'Undelete'], + ); +} + |