*描述*
如果您对一个函数使用instrument,可能得到如下规范错误
(defn f [x] (inc x))
(s/fdef f
:args (s/cat :x (s/and integer? even?))
:ret (s/and integer? odd?))
(t/instrument)
(f 3)
;; ExceptionInfo 调用#'user/f不符合规范
;; In: [0] val: 3 失败在: [:args :x]谓词: even?
;; :clojure.spec.alpha/spec #object[clojure.spec.alpha$regex_spec_impl$reify__1200
0x19b3f9a "clojure.spec.alpha$regex_spec_impl$reify__1200@19b3f9a"]
;; :clojure.spec.alpha/value (3)
;; :clojure.spec.alpha/args (3)
;; :clojure.spec.alpha/failure :instrument
;; :clojure.spec.test.alpha/caller {:file "form-init3240393046310519022.clj", :lin
e 1, :var-scope user/eval1413}
;; clojure.core/ex-info (core.clj:4725)
(ex-data *e)
;; {:clojure.spec.alpha/problems
;; [{:path [:args :x],
;; :pred clojure.core/even?,
;; :val 3,
;; :via [],
;; :in [0]}],
;; :clojure.spec.alpha/spec #object[clojure.spec.alpha$regex_spec_impl$reify__1200 0x19b3f9a "clojure.spec.alpha$regex_spec_impl$reify__1200@19b3f9a"],
;; :clojure.spec.alpha/value (3),
;; :clojure.spec.alpha/args (3),
;; :clojure.spec.alpha/failure :instrument,
;; :clojure.spec.test.alpha/caller {:file "form-init3240393046310519022.clj", :line 1, :var-scope user/eval1413}}
如你所见,
- explain-data 包含一个正则表达式(即f的参数规范)作为 {{::s/spec}}
- 每个问题都包含它们自己的 {{:path}} 中的 {{:args}}
这些事实可能导致spec错误报错器产生混淆,因为f的参数规范({{(s/and integer? even?)}})没有与{{:args}}对应的子规范(我相信{{:path}}应该只包含可以用来指示从规范中选择哪个子规范的键)。
*可能的解决方案*
为了解决这种混淆的情况并提高instrument检查的explain-data一致性,我认为有以下两种选择:
- *解决方案1.* 从{{:path}}中移除{{:args}}
- *解决方案2.* 修改instrument检查的explain-data,使它们具有fspec(而不是它的{{:args}})作为{{::s/spec}}
我个人更倾向于*解决方案2*,因为将fspec添加到explain-data可以使向{{\*explain-out\*}}实现者提供更丰富的错误信息成为可能。
同样适用于{{macroexpand-check}}。