在米杰的事实中，'provided'是如何实施的？

Question

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

如何在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])))