From 5f708dc3b6b53f8b4cf2a649216c0758d964780a Mon Sep 17 00:00:00 2001
From: Zoffix Znet <cpan@zoffix.com>
Date: Wed, 7 Dec 2016 14:48:57 +0000
Subject: [PATCH] Test exception for infix:<xx> with non-numeric Str

RT#130288: https://rt.perl.org/Ticket/Display.html?id=130288
Rakudo fix: https://github.com/rakudo/rakudo/commit/5bacb0573ce9458c2e6
---
 S03-operators/repeat.t | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/S03-operators/repeat.t b/S03-operators/repeat.t
index 245eb94e9d..08f3da6d27 100644
--- a/S03-operators/repeat.t
+++ b/S03-operators/repeat.t
@@ -8,7 +8,7 @@ Repeat operators for strings and lists
 
 =end description
 
-plan 54;
+plan 56;
 
 #L<S03/Changes to Perl 5 operators/"x (which concatenates repetitions of a string to produce a single string">
 
@@ -177,4 +177,12 @@ is ((2, 4, 6).Seq xx *)[^2], ((2, 4, 6), (2, 4, 6)),
     is-deeply 'a' x Int, '', 'type objects get interpreted as 0 iterations';
 }
 
+# RT #130288
+{
+    throws-like ｢rand xx '123aaa'｣, X::Str::Numeric,
+        'Failures in RHS of xx explode (callable LHS)';
+    throws-like ｢42   xx '123aaa'｣, X::Str::Numeric,
+        'Failures in RHS of xx explode (Int LHS)';
+}
+
 # vim: ft=perl6