schema_recap.clj

(ns schema-examples (:require [schema.core :as s]))

(def CommentRequest
  {(s/optional-key :parent-comment-id) long
   :text String
   :share-services [(s/enum :twitter :facebook :google)]})

(def +good-request+
  {:parent-comment-id 2128123123
   :text "This is awesome!"
   :share-services [:twitter :facebook]})

(s/validate CommentRequest +good-request+)
;; ==> +good-request+

(def +bad-request+
  {:parent-comment-id (int 2128123123)
   :text "This is awesome!"
   :share-services ["twitter" "facebook"]})

(s/validate CommentRequest +bad-request+)
;; Exception -- Value does not match schema:
;;  {:parent-comment-id (not (instance? java.lang.Long 2128123123)),
;;   :share-services [(not (#{:facebook :google :twitter} "twitter"))
;;                    (not (#{:facebook :google :twitter} "facebook"))]}