This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/op/for.t: RT #2166: Actually run the test so we know if behavior changes
authorDan Collins <dcollinsn@gmail.com>
Sun, 3 Jul 2016 20:57:07 +0000 (16:57 -0400)
committerYves Orton <demerphq@gmail.com>
Fri, 21 Oct 2016 07:09:43 +0000 (09:09 +0200)
t/op/for.t

index 2056033..a114180 100644 (file)
@@ -554,9 +554,7 @@ TODO: {
     local $TODO = "RT #2166: foreach spuriously autovivifies";
     my %h;
     foreach (@h{a, b}) {}
-    if(keys(%h)) {
-        todo_skip("RT #2166: foreach spuriously autovivifies");
-    }
+    is keys(%h), 0, 'RT #2166: foreach spuriously autovivifies';
 }
 
 sub {