From fd24e6147ca18af1bef43dba97d9e91d3eb729c4 Mon Sep 17 00:00:00 2001 From: Mark McGranaghan Date: Sun, 1 Nov 2009 09:42:48 -0500 Subject: [PATCH] Use updated clj-stacktrace API. --- src/clj_unit/console_reporter.clj | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/clj_unit/console_reporter.clj b/src/clj_unit/console_reporter.clj index aab9473..abcb06e 100644 --- a/src/clj_unit/console_reporter.clj +++ b/src/clj_unit/console_reporter.clj @@ -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