balkian/clojure-koans
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix auto-runner for exceptions without causes or messages, fixes #16

Browse Source
This commit is contained in:
Colin Jones 2011-09-23 14:55:06 -05:00
parent 9239c1d172
commit 652cc6d29c
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/runner/koans.clj
View File

@ -47,9 +47,10 @@
(println "Problem in" file-path) (println "Problem in" file-path)
(println "---------------------") (println "---------------------")
(println "Assertion failed!") (println "Assertion failed!")
(println (.replaceFirst (.getMessage (.getCause e)) (let [actual-error (or (.getCause e) e)
"^Assert failed: " message (or (.getMessage actual-error)
"")) (.toString actual-error))]
(println (.replaceFirst message "^Assert failed: " "")))
false))) false)))
(defn namaste [] (defn namaste []