diff options
| author | Stuart Sierra <mail@stuartsierra.com> | 2008-07-09 18:39:05 +0000 |
|---|---|---|
| committer | Stuart Sierra <mail@stuartsierra.com> | 2008-07-09 18:39:05 +0000 |
| commit | de5bf569008fe1558d4e9fc06e0e6750b05b3384 (patch) | |
| tree | 5bf95fd52943c6e3bc0679855460f43c7b2f4f77 | |
| parent | 6abb0448305a4373ff6921ef6c772d218219f715 (diff) | |
test-is.clj: print stack trace on exception
| -rw-r--r-- | test-is.clj | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/test-is.clj b/test-is.clj index 32745067..7f810354 100644 --- a/test-is.clj +++ b/test-is.clj @@ -3,6 +3,8 @@ ;; by Stuart Sierra, http://stuartsierra.com/ ;; June 5, 2008 +;; Thanks to Chas Emerick for contributions. + ;; Copyright (c) 2008 Stuart Sierra. All rights reserved. The use and ;; distribution terms for this software are covered by the Common ;; Public License 1.0 (http://www.opensource.org/licenses/cpl1.0.php) @@ -127,7 +129,8 @@ (.getMessage e))))) (catch java.lang.Exception e (count-exception) - (. *test-out* (println (str "EXCEPTION in " name ": " e)))))) + (. *test-out* (println (str "EXCEPTION in " name ":"))) + (.printStackTrace e *test-out*)))) (defn- test-var "Finds and calls the fn in a var's :test metadata." |