Add test for RT#119913

Raku · Jul 25, 2015 · f4caecb · f4caecb
1 parent 29aa880
commit f4caecb
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/S32-array/splice.t b/S32-array/splice.t
@@ -45,7 +45,7 @@ my @testing =
 #    $@Num, Array[Num],  # need way to handle named params in capture
 ;
 
-plan (@testing/2 * 50) + 3 + 1 + 1 + 2;
+plan (@testing/2 * 50) + 3 + 1 + 1 + 2 + 1;
 
 for @testing -> @a, $T {
     my $toNum = @a.of ~~ Num;
@@ -224,4 +224,11 @@ for @testing -> @a, $T {
     dies-ok { @a.splice(1, 1, 'not an integer')}, '.splice is type-safe';
 } #2
 
+# RT #119913
+{
+    my @l = 1..100;
+    @l.splice( 5, *, "borrowed", "blue");
+    is @l.join(" "), "1 2 3 4 5 borrowed blue", "Whatever splice"
+} #1
+
 # vim: ft=perl6