t/op/local.t: tests for RT #7411

diff --git a/t/op/local.t b/t/op/local.t
index 67c2ca1..0dc061c 100644 (file)
--- a/t/op/local.t
+++ b/t/op/local.t
@@ -5,7 +5,7 @@ BEGIN {
     require './test.pl';
     set_up_inc(  qw(. ../lib) );
 }
-plan tests => 310;
+plan tests => 314;
 
 my $list_assignment_supported = 1;
 
@@ -824,3 +824,17 @@ local $SIG{__WARN__};
     delete local @Grompits::{<foo bar>};
 }
 pass 'rmagic does not cause delete local to crash on nonexistent elems';
+
+TODO: {
+    my @a = (1..5);
+    {
+        local $#a = 2;
+        is($#a, 2, 'RT #7411: local($#a) should change count');
+        is("@a", '1 2 3', 'RT #7411: local($#a) should shorten array');
+    }
+
+    local $::TODO = 'RT #7411: local($#a)';
+
+    is($#a, 4, 'RT #7411: after local($#a), count should be restored');
+    is("@a", '1 2 3 4 5', 'RT #7411: after local($#a), array should be restored');
+}