clojure.test: print SCI stacktrace [skip ci]

This commit is contained in:
Michiel Borkent 2023-01-02 20:40:08 +01:00
parent 1e06b07d0f
commit fc2762bdd2

View file

@ -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]