[assign] Test for RT 80614: chained array item assignment

Raku · Dec 23, 2010 · 1e438c8 · 1e438c8
1 parent 98abe8e
commit 1e438c8
Showing 1 changed file with 12 additions and 1 deletion.
diff --git 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