Permalink
Browse files

[t/spec] add tests for RT #60404

git-svn-id: http://svn.pugscode.org/pugs@23074 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent c53b1e7 commit 5309a5fdfef1c10ca0c4b81072f64ac46919744a moritz committed Nov 25, 2008
Showing with 17 additions and 0 deletions.
  1. +17 −0 S06-signature/passing-arrays.t
@@ -0,0 +1,17 @@
+use v6;
+use Test;
+plan 3;
+
+{
+ sub count(@a) {
+ my $x = 0;
+ $x++ for @a;
+ return $x;
+ }
+
+ is count([1, 2, 3, 4]), 1, 'count([1, 2, 3, 4])';
+ #?rakudo 2 todo 'RT #60404'
+ is count(my @b = 1, 2, 3, 4), 4, 'count(my @b = 1, 2, 3)';
+ is count((1, 2, 3)), 3, 'count(1, 2, 3)';
+}
+

0 comments on commit 5309a5f

Please sign in to comment.