對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)))))