mvc-works / map-spec

A helper function for Clojure Spec

Map Spec

Copied code from https://twitter.com/thheller/status/1140950125638017024

Usage

[mvc-works/map-spec "0.1.0-a1"]

(ns map-spec.main
  (:require [map-spec.core :refer [map-spec]]
            [cljs.spec.alpha :as s]))

(s/def ::example (map-spec :req {:foo string?, "bar" number?} :closed? true))

(defn task! []
  (println (s/valid? ::example {}))
  (println (s/valid? ::example {:foo "foo", "bar" 1}))
  (println (s/explain ::example {}))
  (println (s/explain ::example {:foo "foo", "bar" 1, :extra 1})))

Outputs:

false
true
{} - failed: (contains? % :foo) spec: :map-spec.main/example
{} - failed: (contains? % "bar") spec: :map-spec.main/example

nil
{:foo "foo", "bar" 1, :extra 1} - failed: (not (contains? % :extra)) spec: :map-spec.main/example

nil

Notices: this function does not work with expound.

License

MIT