X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fcmd%2Ffor.t;h=ccd042426ba6dbba2ff4fb980744f0df0549d8d8;hb=8d8756e7e9233ee3d56235e7432a5a3acbe03daf;hp=7bc188559c2891a275591e7342e09dae51c9f822;hpb=18398057001a49d54f2e8adca16127da595f53e7;p=p5sagit%2Fp5-mst-13.2.git

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;