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 #7615
authorDan Collins <dcollinsn@gmail.com>
Mon, 4 Jul 2016 17:45:37 +0000 (13:45 -0400)
committerYves Orton <demerphq@gmail.com>
Fri, 21 Oct 2016 07:09:44 +0000 (09:09 +0200)
t/op/local.t

index 0dc061c..e88798a 100644 (file)
@@ -5,7 +5,7 @@ BEGIN {
     require './test.pl';
     set_up_inc(  qw(. ../lib) );
 }
-plan tests => 314;
+plan tests => 315;
 
 my $list_assignment_supported = 1;
 
@@ -838,3 +838,11 @@ TODO: {
     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');
 }
+
+$a = 10;
+TODO: {
+    local $::TODO = 'RT #7615: if (local $a)';
+    if (local $a = 1){
+    }
+    is($a, 10, 'RT #7615: local in if condition should be restored');
+}