From fc2762bdd2cfe23ed2acbd8c5b784bede3b3c0a2 Mon Sep 17 00:00:00 2001 From: Michiel Borkent Date: Mon, 2 Jan 2023 20:40:08 +0100 Subject: [PATCH] clojure.test: print SCI stacktrace [skip ci] --- src/babashka/impl/clojure/test.clj | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/babashka/impl/clojure/test.clj b/src/babashka/impl/clojure/test.clj index 8903e911..81e6a450 100644 --- a/src/babashka/impl/clojure/test.clj +++ b/src/babashka/impl/clojure/test.clj @@ -372,7 +372,9 @@ (print " actual: ") (let [actual (:actual m)] (if (instance? Throwable actual) - (stack/print-cause-trace actual @stack-trace-depth) + (if-let [st (sci/stacktrace actual)] + (run! println (sci/format-stacktrace st)) + (stack/print-cause-trace actual @stack-trace-depth)) (prn actual))))) (defmethod report-impl :summary [m]