Question

我有这个Clojure代码来定义我的回复对象的架构，可以是

{:message {:text "Hello"} :delay 3000}

或

{:action "typing_on" :duration 5000}

reply地图可以有:message或:action以及可选键:delay和:duration。

我试图用clojure.spec：

这样表达

(s/def ::action #{"typing_on" "typing_off" "mark_seen"})
(s/def ::duration int?)
(s/def ::delay int?)
(s/def ::message map?)

(s/def ::message-reply (s/keys :req-un [::message]
                               :opt-un [::delay]))

(s/def ::action-reply (s/keys :req-un [::action]
                              :opt-un [::duration]))

(s/def ::reply (or ::action-reply ::message-reply))

但是，这些规范将使用true or在::action-reply子句中找到的第一个架构进行验证，在本例中为::action-reply。我想要实现的目标是::message-reply或::reply是{{1}}的有效架构。

Answer 1

我想你的意思是使用s/or，而不是or（在这种情况下这没有用）？

(s/def ::reply (s/or :action-reply  ::action-reply
                     :message-reply ::message-reply))

也许在您的某个值上尝试s/conform，看看如何使用符合（'spec-destructured'）值：

(s/conform ::reply {:message {:text "Hello"} :delay 3000})
; => [:message-reply {:message {:text "Hello"}, :delay 3000}]

Clojure规范：如何验证一个或另一个地图

1 个答案: