如何在 clojure 测试框架中使用 clojure.spec.test.alpha/check？

Question

我应该如何使用这个特性来验证一个函数在给定的

Answer 1

这有助于定义一个辅助函数，例如

(defn speccheck [fn-to-check options]
  (let [results (t/check [fn-to-check] options)]
    (if (some :failure results)
      (do
        (println "\nFailed specs:")
        (doseq [result results
               :when (:failure result)]
          (println (:sym result))
          (pprint (or (ex-data (:failure result))
                      (:failure result)))))
      true)))

(deftest my-fun-test
  (is (speccheck `this/is-my-fn {}))) ; pass options to t/check as needed

这有助于在失败的情况下，因为您希望打印失败的消息。

Comments

谢谢，我试试看

Answer 2

您还可以使用 expound 进行报告

(defn is*
  [results]
  (assert (seq results))
  (test/is
   (if (some :failure results)
     (exp/explain-results results)
     true)))

使用方法

(is* (stest/check `ns/fn))

注意：如果该函数没有规范（spec），则 assert 将会失败。