unit-testing - clojure 单元测试与重定义

Question

我有这样的事情:

(ns server.core
  (:require [db.api :as d]))

(defrecord Server [host port instance]
  (start [c]
    (let [connection (d/connect (:host c) (:port c))]
      (assoc c :instance connection)))
  (stop [c]
    ;; close the connection
    ))

(defn new-server
  [host port]
  (map->Server {:host host
                :port port}))

和单元测试代码

(ns server.core_test
  (:require [server.core :refer :all]
            [clojure.test :refer :all]))

(deftest server-test
  (testing "Calling start should populate :instance"
    (with-redefs [d/connect (fn [h p] [h p])]
      (let [server (start (new-server "foobar" 12313123))]
        (is (-> server :instance nil? not))))))

使用 boot watch test 运行上面的代码引发类似于以下内容的错误:
Unable to resolve var: d/connect in this context
然后我修改了测试代码，所以它需要 db.api

(ns server.core_test
  (:require [server.core :refer :all]
            [clojure.test :refer :all]
            [db.api :as d]))

我再次进行了测试，这次是 d/connect仍指 db.api .

有什么建议吗？

Answer 1

您需要要求 db.api在您的测试代码中，var d/connect可访问:

(ns server.core_test
  (:require [server.core :refer :all]
            [db.api :as d]
            [clojure.test :refer :all]))

(deftest server-test
  (testing "Calling start should populate :instance"
    (with-redefs [d/connect (fn [h p] [h p])]
      (let [server (start (new-server "foobar" 12313123))]
        (is (-> server :instance nil? not))))))