如何“提供”？在米杰的事实中实施？

发布于 2024-12-11 09:03:17 字数 242 浏览 5 评论 0原文

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

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

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

神仙妹妹 2024-12-18 09:03:17

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

Clojure 1.3 provides a with-redefs macro that works even with vars that haven't been declared dynamic:

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

For backward compatibility, Midje uses its own version, whose guts look like this:

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

回复收藏 0 原文

~没有更多了~