From 18398057001a49d54f2e8adca16127da595f53e7 Mon Sep 17 00:00:00 2001
From: Steve Peters <steve@fisharerojo.org>
Date: Thu, 23 Feb 2006 17:42:09 +0000
Subject: [PATCH] Add test for RT #2166: foreach spuriously autovivifies

p4raw-id: //depot/perl@27287
---
 t/cmd/for.t | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

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";
+}
-- 
2.7.4