.测试/测试
提问于 2016-10-09 03:30:39
在clojure.test中，有一个宏允许同时测试多个固定装置：are。
在clojure.test中，是否可以将are宏与testing结合起来？
即。类似于：
(are [scenario expected input]
(testing scenario
(= expected (my-fn input)))
"scenario 1 - replaces -out by -in" "abc-out" "abc-in")
回答 1
Stack Overflow用户
回答已采纳
发布于 2016-10-09 07:33:43
are在clojure.test中是不可能的。
我调整了斯图尔特塞拉的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个命名空间 在一个测试函数中运行3个断言 1次失败结果 1不及格考试:我的考试不及格 场景1:测试算法 测试我的东西失败了 预期：(= 2 (- 41)) 实际：(不(= 2 3))
您可以看到执行了三个断言，为失败的测试显示了失败消息(“测试我的东西失败了)”，并且场景消息(“场景1:测试算法”)是可见的。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/39943085
复制
腾讯云开发者
