1

with-redefs 函数似乎正是在 clojure 测试中模拟/存根依赖项所需要的。我正在使用 clojure.test [1.10.1]

最初它给了我很多悲伤，当我运行测试时没有应用新的绑定。最后我得到了以下设置按预期工作。其他命名空间需要依赖项

(ns abc 
  (:require [anotherns.id-gen-mock :as mock])

(deftest test-buy
  (testing "Appends trade to the trades log"
    (let [mock (atom {})]
      (with-redefs [id-gen/get-next-id  mock/get-next-id
                    save-trade          (fn [t] (reset! mock {:trade t}))]
          ... test code

  ))))

现在我意识到，我所有的测试都可以使用模拟，所以我把它向上移动了。

(with-redefs [id-gen/get-next-id  mock/get-next-id
              save-trade          identity]
  (deftest test-holdings
    (testing "after 1 buy"
      ... test code

现在新的绑定没有被使用，真正的依赖被调用了——测试失败了。

我看到一些关于 SO 的帖子提到了一些关于“直接链接”的内容，但我无法理解为什么它在 Case1 中有效，但在 Case2 中无效。如果我将 with-redefs 移回到 deftest 形式下，它会再次起作用。

4

1 回答 1

5

根据文档字符串（https://clojure.github.io/clojure/clojure.core-api.html#clojure.core/with-redefs），with-redefs在执行body后恢复原值。在给定的情况下，主体定义了一个测试。因此，with-redefs 控制测试的定义，但不控制它们的执行。当测试执行时，任何对 get-next-id 的引用都会将该符号解析为其当前值，到那时它将是真实的，而不是模拟的。（这在逻辑上是这样的：如果 case No.1 成立，并且 docstring 成立，那么 case No.2 不能成立。）

由于评论中已经提到的原因，with-redefs 通常不是首选工具。Clojure 提供了更强大的技术，例如，制作高阶子系统并使用固定装置来配置它们以进行测试。

于 2020-12-27T18:47:18.253 回答