从其他命名空间导入记录时ClassNotFoundException

Question

我有以下文件:

src/my_proj/myns.clj:

(ns my-proj.myns)
(defrecord MyRecord  [a b c])

test/my_proj/myns_test.clj:

(ns my-proj.myns-test
  (:require [clojure.test :refer :all]
        [my-proj.myns :refer :all])
  (:import [my-proj.myns MyRecord]))

(def my-rec (MyRecord. "A" "B" "C"))

(deftest my-test
  (testing "test"
    (is (:a my-rec))))

当我跑:

lein test

我得到一个ClassNotFoundException:

Exception in thread "main" java.lang.ClassNotFoundException: my-proj.myns.MyRecord
at java.net.URLClassLoader$1.run(URLClassLoader.java:217)
at java.security.AccessController.doPrivileged(Native Method)
at java.net.URLClassLoader.findClass(URLClassLoader.java:205)
at clojure.lang.DynamicClassLoader.findClass(DynamicClassLoader.java:61)
at java.lang.ClassLoader.loadClass(ClassLoader.java:323)
at java.lang.ClassLoader.loadClass(ClassLoader.java:268)
at java.lang.Class.forName0(Native Method)

我错过了什么？

Answer 1

如果要导入,则需要将连字符更改为下划线

user=> (ns sad-hyphen)
nil
sad-hyphen=> (defrecord MyRecord [a b c])
sad_hyphen.MyRecord
sad-hyphen=> (ns foo)
nil
foo=> (import '(sad-hyphen MyRecord))
ClassNotFoundException sad-hyphen.MyRecord ... 
foo=> (import '(sad_hyphen MyRecord))
sad_hyphen.MyRecord

但是,通常不需要导入记录,只需使用->MyRecord和map->MyRecord构造函数(通过require/refer引入命名空间).