Namespaced关键字使JSON规范无效

Question

我正在使用Clojure.spec来验证JSON的结构（后来将其符合另一种格式）：

(s/def ::yes string?)
(s/def ::my-test (s/keys :req [::yes]))

(def my-json (json/read-json "{\"yes\": \"yes\"}")) ; => {:yes "yes"}

(s/valid? ::my-test my-json)       ; => false
(s/valid? ::my-test {::yes "yes"}) ; => true

(s/explain ::my-test {:yes "yes"})
; => val: {:yes "yes"} fails spec: :spec.core/my-test predicate: 
;         (contains? % :spec.core/yes)

（此处s引用clojure.spec名称空间，json引用clojure.data.json。）

从上面可以看出，s/valid?对于解析的JSON失败，因为关键字没有命名空间。

如何调整代码以使JSON被视为有效？

Answer 1

您可以执行以下操作：

(def my-json (json/read-str "{\"yes\": \"yes\"}" :key-fn #(keyword (str *ns*) %)))

我不确定这是否是处理它的正确/惯用方式 - 我想这取决于具体情况。