Question

在clojure.test中有一个允许同时测试多个灯具的宏：are。

在clojure.test中，是否可以将are宏与testing结合使用？

IE中。类似的东西：

(are [scenario expected input]
  (testing scenario
    (= expected (my-fn input)))
    "scenario 1 - replaces -out by -in" "abc-out" "abc-in")

Answer 1

使用clojure.test中的are无法做到这一点

我调整了Stuart Sierra的are以支持testing的方案和失败的消息，如下所示：

(defmacro my-are
  [scenario fail-msg argv expr & args]
  (if (or
       (and (empty? argv) (empty? args))
       (and (pos? (count argv))
            (pos? (count args))
            (zero? (mod (count args) (count argv)))))
    `(testing ~scenario
       (clojure.template/do-template ~argv (is ~expr ~fail-msg) ~@args))
    (throw (IllegalArgumentException. "The number of args doesn't match are's argv."))))

现在，测试包含在testing方案中，并添加了失败消息。

这个宏可以这样使用：

(deftest my-test
  (my-are "Scenario 1: testing arithmetic" "Testing my stuff failed" 
          [x y] (= x y)
          2 (- 4 1)
          4 (* 2 2)
          5 (/ 10 2)))

这导致：

测试总结

  测试1个名称空间
  Ran 3断言，在1个测试函数中   1个故障

  结果
  1次不通过测试：

  我的测试失败了   场景1：测试算术
  测试我的东西失败了   预期：（= 2（ - 4 1））
  实际:(不是（= 2 3））

您可以看到执行了三个断言，失败消息（＆＃34;测试我的东西失败）显示失败的测试，以及场景消息（＆＃34;场景1：测试算术＆＃34;）可见。

clojure.test /正在使用clojure.test / testing

1 个答案: