@@ -1,6 +1,7 @@ (ns clj-unit.console-reporter - (:use clj-unit.utils clojure.contrib.str-utils - (clj-backtrace core repl))) + (:use (clj-unit utils) + (clojure.contrib str-utils) + (clj-stacktrace core repl))) (defn- test-runner-elem? [elem] @@ -14,9 +15,8 @@ (let [parsed (parse-exception e) elems (:trace-elems parsed) user-elems (take-while (complement test-runner-elem?) elems)] - (binding [*use-color* true] - (println (with-color :red (str e))) - (print-trace-elems user-elems)))) + (pst-message-on *out* true (str e)) + (pst-elems-on *out* true user-elems))) (def +console-reporter+ {:init src/clj_unit/console_reporter.clj 7146d693729b89cb1f23fb98af0b69f4f9ac6600 Mark McGranaghan mmcgrana@gmail.com http://github.com/mmcgrana/clj-unit/commit/fd24e6147ca18af1bef43dba97d9e91d3eb729c4 fd24e6147ca18af1bef43dba97d9e91d3eb729c4 2009-11-01T06:42:48-08:00 2009-11-01T06:42:48-08:00 Use updated clj-stacktrace API. c486aa7d78f2eb3915bcaa4e0369bb3f5b95f684 Mark McGranaghan mmcgrana@gmail.com