[perl #67876] tests available

[kyleha]

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

commit 60dbacba9162ee2fbfbe0517dd94c8a5bbb80582
Author: moritz <mor...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Sat Jul 25 17:17:04 2009 +0000

    [t/spec] test for RT #67876
    
    git-svn-id: http://svn.pugscode.org/p...@27724 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S06-signature/passing-arrays.t 
b/t/spec/S06-signature/passing-arrays.t
index 5ed9901..711599f 100644
--- a/t/spec/S06-signature/passing-arrays.t
+++ b/t/spec/S06-signature/passing-arrays.t
@@ -4,7 +4,7 @@ use Test;
 # L<S06/Parameters and arguments>
 # TODO: better smart-linking
 
-plan 9;
+plan 11;
 
 {
     sub count(@a) {
@@ -53,3 +53,16 @@ plan 9;
     is(test_two_array([100,5],[20,300]), 120, 
     "Passing array references to functions accepting arrays works.");
 }
+
+# A Rakudo regression
+
+{
+    sub ro_a(@a) { };
+    sub ro_b(@a) { ro_a(@a) };
+    my @x = 1, 2, 4;
+    lives_ok { ro_b(@x) },   'can pass parameter Array on to next function';
+    #?rakudo todo 'RT 67876'
+    lives_ok { @x = 5, 6 }, '... and that did not make the caller Array ro';
+}
+
+# vim: ft=perl6