clojure - 'provided' 在 Midje 的事实中是如何实现的？

Question

我正在阅读《Clojure in Action》第 8 章有关 TDD 的内容，并尝试了 stub 宏。它使用动态绑定(bind)机制来 stub 函数。唉，在 Clojure 1.3 中，不可能对非动态变量使用绑定(bind)机制，因此 stub 宏在大多数情况下不起作用，除非您显式声明指向函数动态的 var。然后我想知道 Midje 中的 stub 是如何完成的，并试图找到“provided”的来源，但我找不到它。所以就这样:

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])))