问题 在clojure中使用'绑定'的好例子是什么？

我使用绑定有两个原因：

1. 运行覆盖常量或其他符号的其他值的测试
2. 使用“全局”资源，如数据库连接或消息代理通道

测试

我正在开发一个分布式系统，其中包含几个通过消息交换发送消息进行通信的组件。这些交换有全局名称，我已经定义如下：

(ns const)
(def JOB-EXCHANGE    "my.job.xchg")
(def CRUNCH-EXCHANGE "my.crunch.xchg")
;; ... more constants

这些常量用于许多地方以将消息发送到正确的位置。为了测试我的代码，我的测试套件的一部分运行使用实际消息交换的代码。但是，我不希望我的测试干扰实际系统。

为了解决这个问题，我将测试代码包装在一个 binding 调用覆盖这些常量：

;; in my testing code:
(binding [const/CRUNCH-EXCHANGE (str const/CRUNCH-EXCHANGE (gensym "-TEST-"))
          const/CRUNCH-TASK-QUEUE (str const/CRUNCH-TASK-QUEUE (gensym "-TEST-"))]
  ;; tests here
)

在里面 binding 函数，我可以调用任何使用常量的代码，它将使用重写的值。

使用全球资源

我使用绑定的另一种方法是“修复”特定范围内的全局或单例资源的值。这是我编写的RabbitMQ库的示例，其中我绑定了RabbitMQ的值 Connection 符号 *amqp-connection* 以便我的代码可以使用它：

(with-connection (make-connection opts)
  ;; code that uses a RabbitMQ connection
)

实施 with-connection 很简单：

(def ^{:dynamic true} *amqp-connection* nil)

(defmacro with-connection
  "Binds connection to a value you can retrieve
   with (current-connection) within body."
  [conn & body]
  `(binding [*amqp-connection* ~conn]
     ~@body))

我的RabbitMQ库中的任何代码都可以使用该连接 *amqp-connection* 并假设它是有效的，开放的 Connection。或者使用 (current-connection) 函数，当你忘记将RabbitMQ调用包装在一个函数中时抛出一个描述性异常 with-connection：

(defn current-connection
  "If used within (with-connection conn ...),
   returns the currently bound connection."
  []
  (if (current-connection?)
    *amqp-connection*
    (throw (RuntimeException.
      "No current connection. Use (with-connection conn ...) to bind a connection."))))