Permalink
Browse files

[t/spec] test for RT #67876

git-svn-id: http://svn.pugscode.org/pugs@27724 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 4acefb9 commit 31d034d1aae52439cee5b8441dd79b03435c4bb0 moritz committed Jul 25, 2009
Showing with 14 additions and 1 deletion.
  1. +14 −1 S06-signature/passing-arrays.t
View
15 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

0 comments on commit 31d034d

Please sign in to comment.