测试 deftest test-34-unify-with-metadata 结果不正确

Question

`
(deftest test-34-unify-with-metadata
(is (run* [q]

        (== q (quote ^:haz-meta-daytuhs (form form form))))
  '((^:haz-meta-daytuhs (form form form)))))

`

我不确定这个意图是什么，但用以下代码替换会导致测试失败。

`
(deftest test-34-unify-with-metadata
(is (= (run* [q]

           (== q (quote ^:haz-meta-daytuhs (form form form))))
     '((^:haz-meta-daytuhs (form form form))))))

`

我认为正确版本可能接近那个。

Answer 1

评论者：dnolen

我非常确定元数据在形式上导致了异常，这正是这个测试的目的。

Answer 2

评论者：jafingerhut

由于该测试的当前编写方式，它具有以下形式

`
(is (run* [q] (expr))

'(expr2))

`

宏 'is' 的第二个参数是可选的，如果存在，应该是字符串，而不是类似 '(expr2)' 的东西。如果 (run* (link: q) (expr)) 返回 true 而不抛出异常，则测试通过，'(expr2)' 完全被忽略。这就是为什么测试似乎被错误编写的原因。

Answer 3

参考资料： https://clojure.atlassian.net/browse/LOGIC-153 （由 jafingerhut 报告）