Tests covering RT #123623.

Author: jnthn

S06-multi/type-based.t

@@ -1,6 +1,6 @@
 use v6;
 use Test;
-plan 61;
+plan 62;
 
 # type based dispatching
 #
@@ -247,4 +247,10 @@ is(mmd(1..3), 2, 'Slurpy MMD to listop via list');
     ok try { main '2+1i'  } eqv 2+1i,  "can distinguish Complex-like string in main";
 }
 
+# RT #123623
+{
+    multi foo($a where { $_ == False } = True) { }
+    lives-ok { foo(False) }, 'Combination of where clause plus default parses correctly';
+}
+
 # vim: ft=perl6

S14-roles/parameterized-type.t

@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 31;
+plan 32;
 
 =begin pod
 
@@ -117,4 +117,8 @@ eval-dies-ok 'role ABCD[EFGH] { }', 'role with undefined type as parameter dies'
         'error message mentions expected type when a typed array in a signature fails to bind';
 }
 
+# RT #123623
+lives-ok { EVAL 'my role A [ :$bs where { True } = 512] { }; class B does A { }' },
+    'role with where clause and default in parametric signature works out OK';
+
 # vim: ft=perl6