clojure - 在 Midje 的事实中如何实现“提供”？

Question

我正在阅读关于 TDD 的 Clojure in Action 第 8 章，并尝试了存根宏。它使用动态绑定机制来存根函数。唉，在 Clojure 1.3 中，不可能对非动态变量使用绑定机制，因此存根宏在大多数情况下不起作用，除非您明确声明指向动态函数的 var。然后我想知道在 Midje 中是如何进行存根的，并试图找到“提供”的来源，但我找不到。所以这里是：

在 Midje 的事实中如何实现“提供”？有人可以详细解释一下吗？

Answer 1

Clojure 1.3 提供了一个 with-redefs 宏，它甚至可以与尚未声明为动态的变量一起使用：

user=> (def this-is-not-dynamic)
user=> (with-redefs [this-is-not-dynamic 900] this-is-not-dynamic)
900

为了向后兼容，Midje 使用了自己的版本，其内容如下所示：

(defn alter-one-root [[variable new-value]]
   (if (bound? variable) 
     (let [old-value (deref variable)]
       (alter-var-root variable (fn [current-value] new-value))
       [variable old-value])
     (do
       (.bindRoot variable new-value)
       [variable unbound-marker])))