Test for RT #124316.

Author: jnthn

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 294;
+plan 295;
 
 
 # tests various assignment styles
@@ -982,4 +982,11 @@ sub l () { 1, 2 };
     is @foo, '5 10', 'Internal chained item assignment does not mess up outer list assignment';
 }
 
+# RT #124316
+{
+    my @a;
+    @a[^2] = 42,43;
+    is @a, [42,43], '@a[^2] on empty array vivifies the slots and assignment works';
+}
+
 # vim: ft=perl6