如何运行在苹果酒中定义的 attr 映射中定义的测试？

Question

在 Spacemacs 中使用 Cider，我似乎无法找到一种方法来运行在 defn 的属性映射中定义的测试。以这个函数定义为例：

(defn contains-duplicates-a?
  "checks if a vector of strings contain duplicates"
  {:test #(do
            (is (contains-duplicates-a? ["aa" "aa"]))
            (is (not (contains-duplicates-a? ["aa" "aaa"])))
            (is (not(contains-duplicates-a? ["ba" "ab"])))
            (is (not (contains-duplicates-a? ["abcde" "xyz" "ecdab"]))))}
  [word-vector]
  (not(=
        (count word-vector)
        (count (distinct word-vector)))))

这种编写单元测试的方式在我的公司相当普遍，并且得到我们最常见的 IDE 设置（IntelliJ + Cursive）的支持。我们喜欢让单元测试接近代码。

我不确定是否可以通过使用cider-test-defining-forms 来实现，因为无论您添加什么，都必须有一个“顶级表单”(doc)。

是我遗漏了什么，还是根本不支持？

Answer 1

如果您想在这样的定义上调用cider-test-run-test，只需将defn 添加到cider-test-defining-forms。

您还可以通过运行带有前缀参数的cider-test-run-ns-tests 在CIDER 中运行在当前命名空间中定义的所有测试（包括您在此处所做的测试）。在当前稳定的 CIDER 中，这意味着您可以输入 C-u C-c C-t n 或 C-u C-c , n。前缀参数 (C-u) 是防止 CIDER 尝试在典型的“${current.namespace}-test”命名空间中查找测试所必需的。