valid.clj

(ns spec.extras.valid
  (:require [clojure.spec.alpha :as s]))

(defn valid!
  "`#'s/valid?` but throws an `ex-info` with `#'s/explain-data` of the
  failure when `val` doesn't conform to `spec`.
  Intended for always-on postconditions because `#'s/assert` is off by
  default."
  [spec val]
  (if (s/valid? spec val)
    true
    (throw (ex-info (format "Failed to validate value %s as spec %s"
                            (pr-str val) spec)
                    (s/explain-data spec val)))))