test RT #108508, repeated slicing with 1..^@A

Raku · Jun 5, 2012 · 8cd7b7f · 8cd7b7f
1 parent 16f1074
commit 8cd7b7f
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/S09-subscript/slice.t b/S09-subscript/slice.t
@@ -10,7 +10,7 @@ Testing array slices.
 
 =end pod
 
-plan 23;
+plan 24;
 
 {   my @array = (3,7,9,11);
 
@@ -78,4 +78,12 @@ plan 23;
            'slice with one element specified by variables';
 }
 
+# RT #108508
+{
+    my @a1 = 1,2,3,4, 5;
+    my @a2 = @a1[2 ..^ @a1];
+    my @a3 = @a2[1..^ @a2];
+    is @a3.join('|'), '4|5', 'can use 1..^@a for subscripting';
+}
+
 # vim: ft=perl6