This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/op/local.t: tests for RT #7411
authorDan Collins <dcollinsn@gmail.com>
Mon, 4 Jul 2016 17:18:21 +0000 (13:18 -0400)
committerYves Orton <demerphq@gmail.com>
Fri, 21 Oct 2016 07:09:43 +0000 (09:09 +0200)
t/op/local.t

index 67c2ca1..0dc061c 100644 (file)
@@ -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');
+}