Fix auto-runner for exceptions without causes or messages, fixes #16
This commit is contained in:
parent
9239c1d172
commit
652cc6d29c
@ -47,9 +47,10 @@
|
||||
(println "Problem in" file-path)
|
||||
(println "---------------------")
|
||||
(println "Assertion failed!")
|
||||
(println (.replaceFirst (.getMessage (.getCause e))
|
||||
"^Assert failed: "
|
||||
""))
|
||||
(let [actual-error (or (.getCause e) e)
|
||||
message (or (.getMessage actual-error)
|
||||
(.toString actual-error))]
|
||||
(println (.replaceFirst message "^Assert failed: " "")))
|
||||
false)))
|
||||
|
||||
(defn namaste []
|
||||
|
Loading…
Reference in New Issue
Block a user