Permalink
Browse files

[t/spec] Added tests for RT #76804.

git-svn-id: http://svn.pugscode.org/pugs@31863 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 66175ad commit 594a92cc9c105f6d8291713f8586f6ac72fd862c Kodi committed Jul 29, 2010
Showing with 15 additions and 2 deletions.
  1. +1 −1 S03-operators/assign.t
  2. +14 −1 S06-traits/is-copy.t
View
@@ -556,7 +556,7 @@ sub l () { 1, 2 };
#?rakudo skip '$a[] autovivification (unspecced?)'
{
my $a;
- $a[] = l, l, l
+ $a[] = l, l, l;
is($a.elems, 6, 'lhs treats $a[] as list');
}
View
@@ -4,7 +4,7 @@ use Test;
# L<S06/"Parameter traits"/"=item is copy">
# should be moved with other subroutine tests?
-plan 17;
+plan 19;
{
sub foo($a is copy) {
@@ -73,4 +73,17 @@ plan 17;
is t($a), 3, 'passing [1,2,3] to @a is copy does results in three array items';
}
+# RT #76804
+#?rakudo skip 'RT 76804'
+{
+ sub f($arg is copy) {
+ my $other;
+ ($arg, $other) = 5, 6;
+ $arg;
+ };
+ is f(0), 5, 'list assignment (0)';
+ is f(1), 5, 'list assignment (1)';
+}
+
+
# vim: ft=perl6

0 comments on commit 594a92c

Please sign in to comment.