Merge pull request #3464 from atroxaper/2364-throws-like-bool

Make throws-like throw an exception on Bool:D matchers
rakudo · Feb 11, 2020 · f2b3091 · f2b3091
2 parents b19c4ee + 50f084d
commit f2b3091
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/lib/Test.rakumod b/lib/Test.rakumod
@@ -602,6 +602,11 @@ multi sub is-deeply(Mu $got, Mu $expected, $reason = '') is export {
 }
 
 sub throws-like($code, $ex_type, $reason?, *%matcher) is export {
+    for %matcher.kv -> $k, $v {
+        if $v ~~ Bool and $v.DEFINITE {
+            X::Match::Bool.new(:type(".$k")).throw;
+        }
+    }
     my $caller-context = $*THROWS-LIKE-CONTEXT // CALLER::; # Don't guess our caller context, know it!
     subtest {
         plan 2 + %matcher.keys.elems;
@@ -644,6 +649,11 @@ sub throws-like($code, $ex_type, $reason?, *%matcher) is export {
 sub fails-like (
     \test where Callable:D|Str:D, $ex-type, $reason?, *%matcher
 ) is export {
+    for %matcher.kv -> $k, $v {
+        if $v ~~ Bool and $v.DEFINITE {
+            X::Match::Bool.new(:type(".$k")).throw;
+        }
+    }
     my $*THROWS-LIKE-CONTEXT = CALLER::;
     subtest sub {
         plan 2;