我在使用 clojure.test 测试框架报告失败时遇到了一些问题。
现在，我明白我可以覆盖不同报告的某些功能，以便它打印到控制台或我希望打印到的任何位置。我也明白我可以将此输出保存到文件中。
我的问题如下...当我像这个例子一样声明一个deftest时：
(deftest test1
(is (= 1 1)
(is (= 2 1))
这个测试将运行，如果我做类似(run-tests)或(test-var #'test1)的事情，它将返回nil，但打印失败。
我决定覆盖 ：fail 方法来报告，因为我想要的是这样的失败映射：{"expected" (:expected m), "actual" (:actual m)}如果我只使用报告功能，这种方式会起作用。
问题是，当你通过 Clojure.test 框架运行测试时，会调用许多宏，但它的行为并不完全符合我想要的方式。
我的最终目标是：运行测试，如果有任何失败，而不是打印它们，将它们保存到地图并将地图返回给我。如果它们都通过了，那么我不在乎它回报给我什么。
这可能吗？如果某个测试失败，我不想停止测试，我只想将其记录在某个地方，最好是地图。
来源：
具有多个断言的 Clojure 测试
https://clojure.github.io/clojure/branch-1.1.x/clojure.test-api.html
https://groups.google.com/forum/#!topic/clojure/vCjso96wqps
恐怕没有简单的方法可以做到这一点。 您可以提供 defmethod 的自定义实现clojure.test/report :fail并将结果存储在原子中，但很难将结果复制到外层。
如果您只使用test-var那么它是可行的，但请注意，在这种情况下不会执行测试夹具 - 请参阅test-vars来源：
(:use clojure.test)
(deftest failing
(testing "fail me"
(is (= 1 0))
(is (= 2 1))
(is (= 3 2))))
(def test-failures (atom []))
(defmethod report :fail [m]
(swap! test-failures
(fn [previous-failures current-failure]
(conj previous-failures current-failure))
{:test-var-str (testing-vars-str m)
:expected (:expected m)
:actual (:actual m)}))
(defmethod report :end-test-var [m]
@test-failures)
(defn run-test-var [v]
(reset! test-failures [])
(test-var v))
;; in REPL:
(run-test-var #'failing)
;; =>
[{:test-var-str "(failing) (form-init4939336553149581727.clj:159)", :expected 1, :actual (0)}
{:test-var-str "(failing) (form-init4939336553149581727.clj:160)", :expected 2, :actual (1)}
{:test-var-str "(failing) (form-init4939336553149581727.clj:161)", :expected 3, :actual (2)}]
还有defmethod report :end-test-ns但这个不是很有用test-ns因为函数返回@*report-counters*。