Add test for RT #116695

Raku · Oct 9, 2014 · f386c96 · f386c96
1 parent 6e02af8
commit f386c96
Showing 1 changed file with 11 additions and 2 deletions.
diff --git a/S32-array/delete.t b/S32-array/delete.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 29;
+plan 30;
 
 =begin description
 
@@ -75,7 +75,6 @@ sub make-string(@a) {
     @array[8] = 'eight';
     @array[8]:delete;
     is +@array, 0, 'deletion of trailing items purge empty positions';
-
 }
 
 # W/ one range of positive indices
@@ -111,6 +110,16 @@ sub make-string(@a) {
     lives_ok { map { 1 }, @array }, 'map @array lives after delete';
 }
 
+# RT #116695
+{
+    my @array;
+    @array[0] = Any;
+    @array[2] = 'two';
+    @array[2]:delete;
+    is @array.elems, 1,
+        'deletion of trailing item does not purge elements we assigned to';
+}
+
 # TODO More exclusive bounds checks
 
 # TODO W/ multiple ranges