Source
circumspec/should.clj:89
top
(defn should-exception-matches
[expected-message throwable message]
(if expected-message
(let [actual (.getMessage throwable)]
(if ((match-fn expected-message) expected-message actual)
true
(fail (merge (message-map message) {:expected expected-message :actual actual}))))
true))
Comments top
No comments for should-exception-matches. Log in to add a comment.