require './test.pl';
set_up_inc( qw(. ../lib) );
}
-plan tests => 310;
+plan tests => 314;
my $list_assignment_supported = 1;
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');
+}