我正在使用 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
to clojure.data.json
。)
从上面可以看出,s/valid?
解析 JSON 的失败是因为关键字没有命名空间。
如何调整代码以使 JSON 被视为有效?