This is an automatically generated mail to inform you that tests are now
available in S03-operators/assign.t
commit 1e438c8bafa5b88fce0181dc64484a423b2ca433
Author: Kyle Hasselbacher <kyl...@gmail.com>
Date: Thu Dec 23 16:01:53 2010 -0600
[assign] Test for RT 80614: chained array item assignment
diff --git a/S03-operators/assign.t b/S03-operators/assign.t
index 0386e26..53e30c1 100644
--- a/S03-operators/assign.t
+++ b/S03-operators/assign.t
@@ -6,7 +6,7 @@ use Test;
# V
# L<S03/Changes to Perl 5 operators/list assignment operator now parses on
the right>
-plan 242;
+plan 244;
# tests various assignment styles
@@ -764,4 +764,15 @@ sub l () { 1, 2 };
is $x, 5, '... with correct result';
}
+# RT #80614
+{
+ my @a = 1,2,3;
+ my @b;
+ my $rt80614 = @b[0] = @a[1];
+
+ is $rt80614, 2, 'assignment to scalar via array item from array item';
+ #?rakudo todo 'RT 80614'
+ is @b[0], 2, 'assignment to array item from array item to scalar';
+}
+
# vim: ft=perl6
