Permalink
Browse files

[t/spec] test for RT #61772, *@a is copy messed up in Rakudo

git-svn-id: http://svn.pugscode.org/pugs@31027 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 1b76b6d commit c8ed2cc253304ce24fd9b51c09a13593d3782a16 moritz committed May 31, 2010
Showing with 10 additions and 0 deletions.
  1. +10 −0 S06-signature/slurpy-params.t
@@ -302,6 +302,16 @@ eval_dies_ok 'sub rt65324(*@x, $oops) { say $oops }',
is slurpy-by-name(:var<a v g>), 'a|v|g', 'Can call slurpy param by name';
}
+# RT #61772
+{
+ sub array_slurpy_copy(*@a is copy) {
+ return @a;
+ }
+ my @array = <a b c>;
+ my @c = array_slurpy_copy(@array);
+ is @c[0], 'a', 'slurpy is copy-array works fine, thank you';
+}
+
done_testing;
# vim: ft=perl6

0 comments on commit c8ed2cc

Please sign in to comment.