[perl #70469] tests available

[kyleha]

This is an automatically generated mail to inform you that tests are now 
available in t/spec/S06-signature/positional.t

commit 81dba48cd7a6151ac6afc17948e68322aa721fbf
Author: moritz <mor...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Sun Nov 15 17:50:47 2009 +0000

    [t/spec] test for RT #70469, recursion and parameter binding
    
    git-svn-id: http://svn.pugscode.org/p...@29093 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S06-signature/positional.t 
b/t/spec/S06-signature/positional.t
index 4cc6195..0c65e57 100644
--- a/t/spec/S06-signature/positional.t
+++ b/t/spec/S06-signature/positional.t
@@ -1,6 +1,6 @@
 use v6;
 use Test;
-plan 5;
+plan 6;
 
 sub my_first  ($x, $,  $ ) { $x };
 sub my_second ($,  $x, $ ) { $x };
@@ -32,4 +32,14 @@ is my_third( 4, 5, 6), 6, '($, $, $x) works as a signature';
     is rt60408_if(42), (42, 42), 'use of @_[0] in an "if" block (RT 60408)';
 }
 
+#?rakudo todo 'RT 70469'
+{
+
+    sub f(@a, $i) {
+        $i ~ "[{map { f($_, $i + 1) }, @a}]"
+    };
+    is f([[], [[]], []], 0), "0[1[] 1[2[]] 1[]]",
+       'recusion and parameter binding work out fine';
+}
+
 # vim: ft=perl6