From: Steve Peters <steve@fisharerojo.org>
Date: Thu, 23 Feb 2006 17:42:09 +0000 (+0000)
Subject: Add test for RT #2166: foreach spuriously autovivifies
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=18398057001a49d54f2e8adca16127da595f53e7;p=p5sagit%2Fp5-mst-13.2.git

Add test for RT #2166: foreach spuriously autovivifies

p4raw-id: //depot/perl@27287
---

diff --git a/t/cmd/for.t b/t/cmd/for.t
index 0814e7b..7bc1885 100755
--- a/t/cmd/for.t
+++ b/t/cmd/for.t
@@ -1,6 +1,6 @@
 #!./perl
 
-print "1..78\n";
+print "1..79\n";
 
 for ($i = 0; $i <= 10; $i++) {
     $x[$i] = $i;
@@ -457,3 +457,15 @@ for my $i (reverse (map {$_} @array, 1)) {
     $r .= $i;
 }
 is ($r, '1CBA', 'Reverse for array and value via map with var');
+
+TODO: {
+    $test++;
+    no warnings 'reserved';
+    local $TODO = "RT #2166: foreach spuriously autovivifies";
+    my %h;
+    foreach (@h{a, b}) {}
+    if(keys(%h)) {
+        print "not ";
+    }
+    print "ok $test # TODO $TODO\n";
+}