Debugging Clojure Expectations Tests (Metabase Codebase)

debug_expectations_tests.clj

(def current-test-name (atom nil))

(defonce my-redef
  (do (let [orig-fn @#'expectations/test-name]
        (intern 'expectations 'test-name
                (fn [metta]
                  (u/prog1 (orig-fn metta)
                    (reset! current-test-name <>)
                    (println "Now we're going to run:" <>)))))
      :ok))

(defn in-context
  {:expectations-options :in-context}
  [f]
  (u/prog1 (deref (future (f))
                  (* 15 1000)
                  ::timeout)
    (when (= ::timeout <>)
      (println (format "Test %s timed out after 15 seconds." @current-test-name))
      (println "STACKTRACES:")
      (doseq [[^Thread thread, stacktrace] (Thread/getAllStackTraces)]
        (when (seq stacktrace)
          (println (u/pprint-to-str 'blue (cons (.getName thread) stacktrace)))))
      (System/exit -1))))

Assumes you're using metabase.util