clojure.testの述語エラーのテストの失敗と中断

Question

テストのセットアップに失敗した場合は、これを失敗として報告し、現在のdeftestブロック（または現在の名前空間）で後続のテストを中止します。今これを行う1つの方法：

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