testing - 你如何在 clojure 中使用它自己的命名空间之外的类型？

Question

我用 leiningen 建立了一个名为 techne 的项目。我创建了一个名为 scrub 的模块，其中包含一个名为 Scrub 的类型和一个名为 foo 的函数。

技术/scrub.clj:

(ns techne.scrub)
  (deftype Scrub [state]
    Object
     (toString [this]
     (str "SCRUB: " state)))

(defn foo
  [item]
  (Scrub. "foo")
  "bar")

技术/scrub_test.clj:

(ns techne.scrub-test                                                                                                                                             
  (:use [techne.scrub] :reload-all)                                                                                                                               
  (:use [clojure.test]))                                                                                                                                          


(deftest test-foo                                                                                                                                                 
  (is (= "bar" (foo "foo"))))                                                                                                                                                           

(deftest test-scrub                                                                                                                                               
  (is (= (Scrub. :a) (Scrub. :a)))) 

当我运行测试时，出现错误:

Exception in thread "main" java.lang.IllegalArgumentException: Unable to resolve    classname: Scrub (scrub_test.clj:11)
    at clojure.lang.Compiler.analyzeSeq(Compiler.java:5376)
    at clojure.lang.Compiler.analyze(Compiler.java:5190)
    at clojure.lang.Compiler.analyzeSeq(Compiler.java:5357)

如果我删除 test-scrub 一切正常。为什么 :use techne.scrub “导入”函数定义而不是类型定义？如何引用类型定义？

Answer 1

因为 deftype生成一个类，您可能需要在您的 ns 定义中使用 (:import [techne.scrub Scrub]) 在 techne.scrub-test 中导入该 Java 类。

实际上我在这里写了关于 defrecord 的相同内容:

• http://tech.puredanger.com/2010/06/30/using-records-from-a-different-namespace-in-clojure/

您可以做的另一件事是在 scrub 中定义一个构造函数:

(defn new-scrub [state] 
  (Scrub. state))

然后你就不需要在 test-scrub 中导入 Scrub 了。