json-schema-in-plumatic-schema.clj

(require '[schema.core :as s])

(def StrOrKeyword (s/cond-pre s/Str s/Keyword))

(declare Schema)
(declare SchemaValue)
(def SchemaMap {s/Keyword (s/recursive #'SchemaValue)})
(def SchemaArray [(s/recursive #'SchemaValue)])
(def SchemaValue (s/cond-pre s/Str s/Num Nil s/Bool SchemaMap SchemaArray))
(def SchemaType (s/enum "string" "number" "integer" "null" "boolean" "array" "object"))
(def Schema {
             (s/optional-key :type) (s/cond-pre SchemaType [SchemaType])
             (s/optional-key :properties) {s/Keyword (s/recursive #'Schema)}
             (s/optional-key :additionalProperties) s/Bool
             (s/optional-key :required) [StrOrKeyword]
             (s/optional-key :items) (s/recursive #'Schema)
             (s/optional-key :enum) [SchemaValue]
             s/Keyword SchemaValue})

;;   (testing "Schema"
;;     (is (s/validate Schema {:type "string"}))
;;     (is (s/validate Schema {:type "number"}))
;;     (is (s/validate Schema {:type "integer"}))
;;     (is (s/validate Schema {:type "boolean"}))
;;     (is (s/validate Schema {:type ["string" "null"]}))
;;     (is (s/validate Schema {
;;       :type "object"
;;       :properties {
;;         :title {:type "string"}
;;         :admin {:type "boolean"}
;;       }
;;       :required [:title]
;;       :additionalProperties false
;;     }))
;;     (is (s/validate Schema {
;;       :type "object"
;;       :properties {
;;         :title {
;;           :type "object"
;;           :properties {
;;             :se {:type "string"}
;;           }
;;         }
;;         :admin {:type "boolean"}
;;       }
;;       :required [:title]
;;       :additionalProperties false
;;     }))
;;     (is (s/validate Schema {
;;       :type "array"
;;       :items {
;;         :type "object"
;;         :properties {
;;           :title {:type "string"}
;;           :admin {:type "boolean"}
;;         }
;;         :required [:title]
;;         :additionalProperties false
;;       }
;;     }))
;;     (is (not-empty ((s/checker Schema) {
;;       :type "object"
;;       :properties {
;;         :title {:type "string" :meta {:foo (fn [])}} ; Function is not a SchemaValue
;;       }})))
;;   )