Validate :or on map keys

[blindcoding9]

How can I validate that the map has one key or another?

(m/validate [:map
               [:or :A :B]]
              {:A "S"})

(m/validate [:map
               [:or [:A :string] [:B :string]]]
              {:A "S"})

Both:

=> Execution error (ExceptionInfo) at malli.core/-exception (core.cljc:138).
:malli.core/invalid-schema

[dainiusjocas]

This trick works:

(let [schema [:or 
              [:map {:closed true}
               [:A :string]]
              [:map {:closed true}
               [:B :string]]]]
  [(m/validate schema {})
   (m/validate schema {:A "S"})
   (m/validate schema {:B "B"})
   (m/validate schema {:A "S" :B "B"})])
=> [false true true false]

[ikitommi]

duplicate of #474