Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

[t/spec] Test for RT #61772

git-svn-id: http://svn.pugscode.org/pugs@27524 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
commit 4610f3d35b69aa0811b8324cac25aabf6e52f41c 1 parent ab923c7
kyle authored

Showing 1 changed file with 13 additions and 1 deletion. Show diff stats Hide diff stats

  1. +13 1 S06-signature/slurpy-params.t
14 S06-signature/slurpy-params.t
@@ -3,7 +3,7 @@ use Test;
3 3
4 4 # L<S06/List parameters/Slurpy parameters>
5 5
6   -plan 44;
  6 +plan 45;
7 7
8 8 sub xelems(*@args) { @args.elems }
9 9 sub xjoin(*@args) { @args.join('|') }
@@ -210,5 +210,17 @@ L<S06/List parameters/Slurpy scalar parameters capture what would otherwise be t
210 210 'Testing the rest slurpy *@r';
211 211 }
212 212
  213 +# RT #61772
  214 +{
  215 + my @array_in = <a b c>;
  216 +
  217 + sub no_copy( *@a ) { @a }
  218 + sub is_copy( *@a is copy ) { @a }
  219 +
  220 + my @not_copied = no_copy( @array_in );
  221 + my @copied = is_copy( @array_in );
  222 +
  223 + is @copied, @not_copied, 'slurpy array copy same as not copied';
  224 +}
213 225
214 226 # vim: ft=perl6

0 comments on commit 4610f3d

Please sign in to comment.
Something went wrong with that request. Please try again.