unit-testing - 如何针对参数序列测试谓词？

Question

我已经生成了一系列 arg 列表，例如:

[[a b c]
[d e f]
[g h i]]


... 这样 (map (partial apply f) that-seq) 应该产生相同结果的列表。我想检查所有这些是否确实产生相同的结果。通常，你会使用 are 宏来做这样的事情，但我没有一大堆要测试的表达式:我有一个 seq.所以，我想我想要(申请是......)的“等价物”。据我所知，我的选择是:

• 写一个宏
• 使用每个？是吗？，放弃有用的错误消息。

有没有更好的方法来做到这一点？

Answer 1

使用它来获得更准确的报告

(testing "blake2b defaults are accurate"
  (doseq [args-variation blake2b-empty-args-variations]
    (is (= (seq empty-string-digest)
           (seq (blake2b args-variation)))
        (str "Args variation: " (seq args-variation)))))