Clojurians Log v2

Dunno if there's prior art, but I couldn't find any config options that would do it so I made a reporter that prints out the duration of each test case:

(def starts (atom {}))

(defmulti nested-with-time* lazytest.reporters/reporter-dispatch)

(defmethod nested-with-time* :default [config m]
  (lazytest.reporters/nested* config m))

(defn print-test-result-with-time [config {:keys [source] :as result}]
  (let [end (System/currentTimeMillis)
        dur (- end (@starts (dissoc source :type)))
        orig-result (with-out-str (lazytest.reporters/print-test-result config result))
        has-newline? (str/ends-with? orig-result "\n")
        new-result (str (cond-> orig-result has-newline? (subs 0 (dec (count orig-result))))
                        " (" dur " ms)")
        p (if has-newline? println print)]
    (p new-result)))

(defmethod nested-with-time* :begin-test-case [config tc]
  (swap! starts assoc (dissoc tc :type) (System/currentTimeMillis))
  (lazytest.reporters/nested* config tc))

(defmethod nested-with-time* :pass [config result]
  (print-test-result-with-time config result))

(defmethod nested-with-time* :fail [config result]
  (print-test-result-with-time config result))

(def reporter (->> lazytest.reporters/nested
                   (mapv #({lazytest.reporters/nested* nested-with-time*} % %))))