From f4caecb87e4ac055278f285b2be13035f17e2dd5 Mon Sep 17 00:00:00 2001
From: Jonathan Scott Duff <duff@pobox.com>
Date: Sat, 25 Jul 2015 17:01:56 -0500
Subject: [PATCH] Add test for RT#119913

---
 S32-array/splice.t | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/S32-array/splice.t b/S32-array/splice.t
index e03ee73680..da09c4e69f 100644
--- 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