clojure.test: print SCI stacktrace [skip ci]

2023-01-02 20:40:19 +01:00
1 changed files with 3 additions and 1 deletions
--- 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]