评论由:mfikes 提出
嗨,Colin,
对于您的第二次测试,您是否检查的是这个吗?
(instance? PersistentQueue #queue [1 2 3])
至于实际上测试补丁,我能想到的唯一方法是检查生成的代码。查看以下命令产生的字符串
(binding [*print-fn-bodies* true] (pr-str (fn [] #queue [])))
看起来像是一个破解方法,但你可以在字符串中检查是否包含 {{PersistentVector}},如果包含,则使测试失败。