From: Steve Peters <steve@fisharerojo.org>
Date: Wed, 19 Apr 2006 14:57:36 +0000 (+0000)
Subject: Add a TODO test for RT #1085: "what should be output of perl -we
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5a7dac4e435401addc047693f17f4d91177e2254;p=p5sagit%2Fp5-mst-13.2.git

Add a TODO test for RT #1085: "what should be output of perl -we
 'print do { foreach (1, 2) { 1; } }'"

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

diff --git a/t/cmd/for.t b/t/cmd/for.t
index 7bc1885..ccd0424 100755
--- a/t/cmd/for.t
+++ b/t/cmd/for.t
@@ -1,6 +1,6 @@
 #!./perl
 
-print "1..79\n";
+print "1..80\n";
 
 for ($i = 0; $i <= 10; $i++) {
     $x[$i] = $i;
@@ -460,6 +460,15 @@ is ($r, '1CBA', 'Reverse for array and value via map with var');
 
 TODO: {
     $test++;
+    local $TODO = "RT #1085: what should be output of perl -we 'print do { foreach (1, 2) { 1; } }'";
+    if (do {17; foreach (1, 2) { 1; } } != 17) {
+        print "not ";
+    }
+    print "ok $test # TODO $TODO\n";
+}
+
+TODO: {
+    $test++;
     no warnings 'reserved';
     local $TODO = "RT #2166: foreach spuriously autovivifies";
     my %h;