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

functional-koans · Sep 23, 2011 · 652cc6d · 652cc6d
1 parent 9239c1d
commit 652cc6d
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/src/runner/koans.clj b/src/runner/koans.clj
@@ -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 []