spec-alt-vs-or.clj

(require '[clojure.spec :as s])
(require-macros '[gadjett.core :refer [dbg]])


;; with s/alt it is valid
(dbg (s/valid? (s/cat
                 :a (s/alt :p (s/cat :x string? :y string?)
                           :q number?)
                 :b string?)
               ["foo" "bar" "qux"]))

;; with s/or it is not valid
(dbg (s/valid? (s/cat
                 :a (s/or :p (s/cat :x string? :y string?)
                          :q number?)
                 :b string?)
               ["foo" "bar" "qux"]))

;; however, it would with a nested sequence
(dbg (s/valid? (s/cat
                 :a (s/or :p (s/cat :x string? :y string?)
                          :q number?)
                 :b string?)
               [["foo" "bar"] "qux"]))