对clojure中的谓词失败进行失败并停止测试。

Question

如果我的测试设置中的任何步骤失败，我想将此报告为失败，并停止当前deftest块（或当前名称空间）中的任何后续测试。现在的一种方式做到这一点：

(if some-condition-is-ok 
    (do 
    ... do tests) 
    (is (= 1 0) "Failure, condition not met") 

以上：

1. 报告失败，如果some-condition-is-ok不满足
2. 不运行任何测试，因为设置条件不成立

除了它不流畅，并且不适合多种条件。我喜欢这样的东西：

(let [;; setup here...] 

    (assert-or-stop-tests some-condition-is-ok) 
    ... continue with tests here 

任何想法在干净的方式做到这一点？

Answer 1

你可以用马克·英格better-cond此：

(require '[better-cond.core :as b] 
     '[clojure.test :refer [is]]) 

(def some-condition-is-ok true) 

(def some-other-condition-is-ok false) 

(deftest a-test 
    (b/cond 
    :let [#_"setup here..."] 
    :when (is some-condition-is-ok) 
    :let [_ (is (= 0 1))] 
    :when (is some-other-condition-is-ok) 
    :let [_ (is (= 1 2))])) 

或者，如果你想避免:let [_ ,,,]，您可以定义自己的宏：

(defmacro ceasing [& exprs] 
    (when-let [[left & [right & less :as more]] (seq exprs)] 
    (if (= :assert left) 
     `(when (is ~right) 
     (ceasing ~@less)) 
     `(do 
     ~left 
     (ceasing ~@more))))) 

(deftest b-test 
    (let [#_"setup here..."] 
    (ceasing 
     :assert some-condition-is-ok 
     (is (= 0 1)) 
     :assert some-other-condition-is-ok 
     (is (= 1 2)))))