Add test for phasers in loops + recursion.

Author: jnthn

S04-phasers/in-loop.t

@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 8;
+plan 11;
 
 # TODO, based on synopsis 4:
 #
@@ -124,4 +124,23 @@ plan 8;
     is rt126001_b(), 2, 'LAST phaser without block does not put Mu in the iteration variable';
 }
 
+{
+    my (@first, @next, @last);
+    sub foo($a) {
+        for ^$a {
+            FIRST @first.push($a);
+            NEXT @next.push($a);
+            LAST @last.push($a);
+            foo($a - 1)
+        }
+    }
+    foo(3);
+    is @first, [3, 2, 1, 1, 2, 1, 1, 2, 1, 1],
+        'FIRST in loop works fine with recursion';
+    is @next, [1, 2, 1, 2, 3, 1, 2, 1, 2, 3, 1, 2, 1, 2, 3],
+        'NEXT in loop works fine with recursion';
+    is @last, [1, 1, 2, 1, 1, 2, 1, 1, 2, 3],
+        'LAST in loop works fine with recursion';
+}
+
 # vim: ft=perl6