某些setter上to-java未正常工作

Question

在这个例子中，最后一个测试失败了。

我使用了org.codehaus.mojo.rpm.Mapping作为例子，因为我在这里发现了这个bug。

(链接: 1) http://mojo.codehaus.org/rpm-maven-plugin/apidocs/org/codehaus/mojo/rpm/Mapping.html

测试

(do
(使用 'clojure.java.data

       'clojure.test)

(导入 '(链接: org.codehaus.mojo.rpm Mapping))

(测试 "正常设置"

(let (链接: mapping (Mapping.))

	(.setConfiguration mapping "a value")
	(.setDirectory mapping "/tmp")

	(is (= (.getDirectory mapping) "/tmp"))
	(is (= (.getConfiguration mapping) "a value"))))

(测试 "通过java-data设置"

(let (link: mapping (to-java Mapping {:configuration "a value" :directory "/tmp"}))
  (is (= (.getDirectory mapping) "/tmp"))
  (is (= (.getConfiguration mapping) "a value")))))

Answer 1

参考：https://clojure.atlassian.net/browse/JDATA-4 (由报告)