Changeset 22043

Timestamp:

08/27/08 16:20:05 (3 months ago)

Author:

moritz

Message:

[t/spec] test for RT #58392, masak++

Files:

• t/spec/S04-statements/for.t (modified) (2 diffs)

t/spec/S04-statements/for.t

@@ -12 +12 @@
 =end description
 
-plan 39;
+plan 40;
 
 ## No foreach
@@ -298 +298 @@
     is($a, 'ArrayArray', 'List context');
 }
+
+{
+    # this was a rakudo bug with mixed 'for' and recursion, which seems to 
+    # confuse some lexical pads or the like.
+    my $gather = '';
+    sub f($l) {
+        if $l <= 0 {
+            return $l;
+        }
+        $gather ~= $l;
+        for 1..3 {
+        f($l-1);
+            $gather ~= '.';
+        }
+    }
+    f(2);
+
+    #?rakudo todo 'bug in for/recursion interaction, RT #58392'
+    is $gather, '21....1....1....', 'Can mix recursion and for';
+}
+