46、Clojure 测试与数据库操作实践

Clojure 测试与数据库操作实践

1. 测试用例准备与 HTML 生成库开发

在开发过程中，测试是确保代码质量的重要环节。首先，我们来看一个关于宠物店配置的测试用例。以下是定义的测试夹具函数：

(defn petstore-config-fixture
  [f]
  (let [file (java.io.File. "petstore-config.clj")]
    (try
      (spit file (with-out-str (pr dummy-petstore)))  
      (f)                                             
      (finally
        (.delete file)))))

这里，我们将 dummy-petstore 的可读表示写入 petstore-config.clj 文件。需要注意的是，使用 pr 而非 print 或 println ，因为 pr 能生成 Clojure 可读的输出。之后，我们使用 :once 生命周期注册这个测试夹具：

(use-fixtures :once petstore-config-fixture)

注册后，运行测试：