Test status rights cleanup

Author: sunnavy

t/web/lifecycle_rights.t

@@ -2,10 +2,10 @@ use strict;
 use warnings;
 
 BEGIN {require './t/lifecycles/utils.pl'};
+my ( $url, $agent ) = RT::Test->started_ok;
 
 diag 'Test web UI for ticket status without SeeQueue right';
 {
-    my ( $url, $agent ) = RT::Test->started_ok;
 
     my $delivery = RT::Test->load_or_create_queue(
         Name => 'delivery',
@@ -48,4 +48,39 @@ diag 'Test web UI for ticket status without SeeQueue right';
 
 }
 
+diag 'Test status rights cleanup';
+{
+    ok( $agent->login( 'root', 'password', logout => 1 ), 'logged in as root' );
+    $agent->get_ok('/Admin/Lifecycles/Rights.html?Type=ticket;Name=default');
+
+    $agent->submit_form_ok(
+        {   form_name => 'ModifyLifecycleRights',
+            fields    => {
+                'Right-From-1' => '*',
+                'Right-To-1'   => 'stalled',
+                'Right-Name-1' => 'StallTicket',
+            },
+            button => 'Update',
+        },
+        'Created StallTicket right'
+    );
+    $agent->text_contains('Lifecycle updated');
+
+    $agent->get_ok('/Admin/Global/GroupRights.html');
+    $agent->text_contains('StallTicket', 'New right shows up on Rights page');
+
+    $agent->get_ok('/Admin/Lifecycles/Rights.html?Type=ticket;Name=default');
+    $agent->submit_form_ok(
+        {   form_name => 'ModifyLifecycleRights',
+            fields    => { 'Delete-1' => 1, },
+            button    => 'Update',
+        },
+        'Deleted StallTicket right'
+    );
+    $agent->text_contains('Lifecycle updated');
+
+    $agent->get_ok('/Admin/Global/GroupRights.html');
+    $agent->text_lacks('StallTicket', 'Deleted right is gone on Rights page');
+}
+
 done_testing;