Adding a test for RT #125457 regressions

Raku · Jun 23, 2015 · 054be39 · 054be39
1 parent e6ec6ac
commit 054be39
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/S32-array/delete.t b/S32-array/delete.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 31;
+plan 32;
 
 =begin description
 
@@ -123,6 +123,14 @@ sub make-string(@a) {
         'deletion of trailing item does not purge elements we assigned to (2)';
 }
 
+# RT #125457
+{
+    my @array = 1, 2, 3;
+    @array[2]:delete;
+    @array[3] = 4;
+    is @array[2], Any, 'deletion of trailing item followed by add item beyond does not resurrect deleted item';
+}
+
 # TODO More exclusive bounds checks
 
 # TODO W/ multiple ranges