IO::Path.new with wrong args must not claim it only takes named ones

RT#127989
Raku · Jul 18, 2016 · 5f54695 · 5f54695
1 parent f39436f
commit 5f54695
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/S32-io/io-path.t b/S32-io/io-path.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 17;
+plan 18;
 
 # L<S32::IO/IO::Path>
 
@@ -57,3 +57,7 @@ isa-ok $path.IO,   IO::Path, 'IO::Path.IO returns IO::Path';
     my $nul = "/foo\0bar".IO.perl;
     is $nul.EVAL.perl, $nul, "does $nul roundtrip?";
 }
+
+# RT #127989
+throws-like { IO::Path.new: 'foo', 'bar' }, X::Multi::NoMatch,
+    'IO::Path.new with wrong args must not claim it only takes named ones';