From df528f7db024640414dbc74d38da97017662acaa Mon Sep 17 00:00:00 2001
From: Zoffix Znet <cpan@zoffix.com>
Date: Sun, 16 Oct 2016 18:39:57 -0400
Subject: [PATCH] Test infix:<x> does not silence Failures

RT#129899: https://rt.perl.org/Ticket/Display.html?id=129899
---
 S03-operators/repeat.t | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/S03-operators/repeat.t b/S03-operators/repeat.t
index e8547d09eb..245eb94e9d 100644
--- a/S03-operators/repeat.t
+++ b/S03-operators/repeat.t
@@ -8,7 +8,7 @@ Repeat operators for strings and lists
 
 =end description
 
-plan 52;
+plan 54;
 
 #L<S03/Changes to Perl 5 operators/"x (which concatenates repetitions of a string to produce a single string">
 
@@ -171,4 +171,10 @@ is ((2, 4, 6).Seq xx *)[^2], ((2, 4, 6), (2, 4, 6)),
         '(& xx Num) works as & xx Int';
 }
 
+# RT 129899
+{
+    throws-like { 'a' x 'b' }, X::Str::Numeric, 'x does not silence failures';
+    is-deeply 'a' x Int, '', 'type objects get interpreted as 0 iterations';
+}
+
 # vim: ft=perl6