20 lines
567 B
Text
20 lines
567 B
Text
|
(ns lambdaisland.regal.malli-test
|
||
|
|
(:require [clojure.test :refer [deftest is ]]
|
||
|
|
[malli.core :as m]
|
||
|
|
[malli.error :as me]
|
||
|
|
[lambdaisland.regal.malli :as regal-malli]))
|
||
|
|
|
||
|
|
(def malli-opts {:registry {:regal regal-malli/regal-schema}})
|
||
|
|
|
||
|
|
(def form [:+ "y"])
|
||
|
|
|
||
|
|
(def schema (m/schema [:regal form] malli-opts))
|
||
|
|
|
||
|
|
(deftest regal-malli-test
|
||
|
|
(is (= [:regal [:+ "y"]] (m/form schema)))
|
||
|
|
(is (= :regal (m/type schema)))
|
||
|
|
(is (= true (m/validate schema "yyy")))
|
||
|
|
(is (= ["Pattern does not match"] (me/humanize (m/explain schema "xxx")))))
|
||
|
|
|
||
|
|
|