[perl #76804] tests available

[kyleha]

This is an automatically generated mail to inform you that tests are now 
available in at least one of these files: t/spec/S03-operators/assign.t, 
t/spec/S06-traits/is-copy.t

commit 6a51dccb70a504c421a1de0c62c532aa86c6fb8f
Author: Kodi <k...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Thu Jul 29 21:21:26 2010 +0000

    [t/spec] Added tests for RT #76804.
    
    git-svn-id: http://svn.pugscode.org/p...@31863 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S03-operators/assign.t b/t/spec/S03-operators/assign.t
index cbd6850..08056c5 100644
--- a/t/spec/S03-operators/assign.t
+++ b/t/spec/S03-operators/assign.t
@@ -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');
 }
 
diff --git a/t/spec/S06-traits/is-copy.t b/t/spec/S06-traits/is-copy.t
index ae634e8..581f357 100644
--- a/t/spec/S06-traits/is-copy.t
+++ b/t/spec/S06-traits/is-copy.t
@@ -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