From a523aef60a679a15b95a55ba4a8d53aa1bf7069f Mon Sep 17 00:00:00 2001
From: Zoffix Znet <cpan@zoffix.com>
Date: Sun, 21 May 2017 21:25:50 +0000
Subject: [PATCH] Test Pair.new does not give error from Mu.new

Rakudo fix: https://github.com/rakudo/rakudo/commit/1c16bf2e08
RT#131339: https://rt.perl.org/Ticket/Display.html?id=131339
---
 S02-types/pair.t | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/S02-types/pair.t b/S02-types/pair.t
index a5d6997e13..2714c50a6c 100644
--- a/S02-types/pair.t
+++ b/S02-types/pair.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 4 * 19 + 106;
+plan 4 * 19 + 107;
 
 # L<S02/Mutable types/A single key-to-value association>
 # basic Pair
@@ -412,4 +412,8 @@ subtest 'Pair.ACCEPTS' => {
     is-deeply :bar  .ACCEPTS(Foo), False, 'custom class (False)';
 }
 
+# RT#131339
+throws-like { Pair.new: <foo bar ber meow>, <meows>, 42 }, X::Multi::NoMatch,
+    'Pair.new with wrong args does not go to Mu.new';
+
 # vim: ft=perl6