测试失败时打印堆栈跟踪

Question

我正在学习Clojure，并尝试使用TDD来做到这一点*。

我使用 midje 作为测试库。到目前为止喜欢它，预期与实际结果显示非常有帮助。

但是有没有办法使用clojure.tools.trace或类似的东西来打印第一个失败的测试的痕迹？

_{*：具体来说，我记得看过罗伯特·C·马丁（Robert C. Martin）关于变换优先级前提的演讲，我正在以这种方式实现阶乘函数。不过，目前还没有太多代码要显示。}

Answer 1

一种可能性是编写自己的发射器，但对于您的特定目标来说，这可能是矫枉过正的。

或者，您可以猴子修补负责格式化预期值的函数：

(require '[midje.util.exceptions :as e]
         '[midje.emission.plugins.util :as u])
(defn- format-captured-throwable
  [ex]
  (if (e/captured-throwable? ex)
    ;; ... adjust this to your needs ...
    (pr-str 'this-is-your-exception (e/throwable ex))))
(alter-var-root
  #'u/attractively-stringified-value
  (fn [f]
    #(or (format-captured-throwable %) (f %))))

但是，format-captured-throwable必须生成一个字符串，这意味着直接打印堆栈跟踪将使它最终无法接近Midje的测试报告。

user=> (fact (throw (Exception. "khaaaaaaaan.")) => :not-khan)
FAIL at (form-init4689442922606051135.clj:1)
    Expected: :not-khan
      Actual: this-is-your-exception #<Exception java.lang.Exception: khaaaaaaaan.>