This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
c778487
)
t/op/local.t: tests for RT #7615
author
Dan Collins
<dcollinsn@gmail.com>
Mon, 4 Jul 2016 17:45:37 +0000
(13:45 -0400)
committer
Yves Orton
<demerphq@gmail.com>
Fri, 21 Oct 2016 07:09:44 +0000
(09:09 +0200)
t/op/local.t
patch
|
blob
|
blame
|
history
diff --git
a/t/op/local.t
b/t/op/local.t
index
0dc061c
..
e88798a
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 => 31
4
;
+plan tests => 31
5
;
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');
+}