Add tests for RT #123895

Raku · Feb 23, 2015 · 317b088 · 317b088
1 parent 1777fbd
commit 317b088
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/S06-signature/introspection.t b/S06-signature/introspection.t
@@ -1,6 +1,7 @@
 use v6;
 use Test;
-plan 52;
+use Test::Util;
+plan 54;
 
 # L<S06/Signature Introspection>
 
@@ -138,6 +139,12 @@ sub j(*@i) {
     is &xyz.signature.params[0].named,      False, '.named on Capture param is True';
 }
 
+# RT #123895
+{
+    is_run q[sub wtvr(|) {}; &wtvr.perl], { err => "", out => "" }, ".perl on unnamed | parameters doesn't err";
+    is_run q[sub prcl(\\) {}; &prcl.perl], { err => "", out => "" }, ".perl on unnamed \\ parameters doesn't err";
+}
+
 done;
 
 # vim: ft=perl6