(defn default-fail-message
"Default string message for a ahould failure/warning."
[{:keys [expected actual message locals]}]
(let [message-prefix (if message (str message "\n") nil)]
(str
"circumspec should-assertion failed:\n"
message-prefix
"expected " (pps expected)
"actual " (pps actual)
"locals " (pps locals))))
Comments top
No comments for default-fail-message. Log in to add a comment.