All of the schemata!
Tonic is a library of generally useful schemata using Prismatic Schema.
Tonic goes well with a healthy dose of gin.
You can validate lower case letters.
(s/check AlphaLower \q)
;; => nil
(s/check AlphaLower \Q)
;; => (not (:lower-case-alpha-character \Q))You can validate upper case letters.
(s/check AlphaUpper \Q)
;; => nil
(s/check AlphaUpper \q)
;; => (not (:upper-case-alpha-character \q))You can validate letters.
(s/check Alpha \q)
;; => nil
(s/check Alpha \Q)
;; => nil
(s/check Alpha :a)
;; => (named (not (some (check % :a) schemas)) :alpha-character)You can validate numeric digits.
(s/check Digit \4)
;; => nil
(s/check Digit \d)
;; => (named (not (#{\0 \1 \2 \3 \4 \5 \6 \7 \8 \9} \d)) :numeric-digit)You can validate alpha-numeric characters.
(s/check AlphaNumeric \4)
;; => nil
(s/check AlphaNumeric \q)
;; => nil
(s/check AlphaNumeric \Q)
;; => nil
(s/check AlphaNumeric 7)
;; => (named (not (some (check % 7) schemas)) :alpha-numeric-character)You can validate lower case hex digits.
(s/check HexLower \5)
;; => nil
(s/check HexLower \f)
;; => nil
(s/check HexLower \F)
;; => (named (not (some (check % \F) schemas)) :hex-lower-case-digit)You can validate upper case hex digits.
(s/check HexUpper \5)
;; => nil
(s/check HexUpper \F)
;; => nil
(s/check HexUpper \f)
;; => (named (not (some (check % \f) schemas)) :hex-upper-case-digit)You can validate hex digits irrespective of upper/lower case.
(s/check Hex \5)
;; => nil
(s/check Hex \f)
;; => nil
(s/check Hex \F)
;; => nil
(s/check Hex \g)
;; => (named (not (some (check % \g) schemas)) :hex-digit)You can validate integral numbers.
(s/check IntegralNumber 12)
;; => nil
(s/check IntegralNumber (long 12))
;; => nil
(s/check IntegralNumber (bigint 12))
;; => nil
(s/check IntegralNumber 12.34)
;; => (named (not (some (check % 12.34) schemas)) :integral-number)You can validate IP addresses (IPv4 specifically.)
(s/check IPv4Address "192.168.1.1")
;; => nil
(s/check IPv4Address "192.168.1.256")
;; => (not (:ipv4-address "192.168.1.256"))You can validate MAC addresses. It's important to realize that there are actually three common formats for displaying MAC addresses, although the most common by far is the colon-separated variant.
(s/check MacAddressColons "a1:b2:c3:d4:e5:f6")
;; => nil
(s/check MacAddressHyphens "a1-b2-c3-d4-e5-f6")
;; => nil
(s/check MacAddressPeriods "a1b2.c3d4.e5f6")
;; => nil
(s/check MacAddress "a1:b2:c3:d4:e5:f6")
;; => nil
(s/check MacAddress "a1-b2-c3-d4-e5-f6")
;; => nil
(s/check MacAddress "a1b2.c3d4.e5f6")
;; => nil
(s/check MacAddress "a1:b2:c3:d4:e5")
;; => (named (not (some (check % "a1:b2:c3:d4:e5") schemas)) :mac-address)
(s/check MacAddress "a1:b2:c3:d4:e5:f6:f6")
;; => (named (not (some (check % a-java.lang.String) schemas)) :mac-address)You can validate for empty or non-empty strings.
(s/check EmptyString "")
;; => nil
(s/check EmptyString "foo")
;; => (not (:empty-string "foo"))
(s/check NonEmptyString "foo")
;; => nil
(s/check NonEmptyString "")
;; => (not (:non-empty-string ""))
(s/check NonEmptyString :foo)
;; => (not (instance? java.lang.String :foo))You can validate for a string matching a specific regular expression. You can also provide an optional name for the matched regular expression.
(s/check (re-matches #"[a-z]+") "foo")
;; => nil
(s/check (re-matches #"[a-z]+" :lowercase) "foo123")
;; => (not (:lowercase "foo123"))You can validate UUID strings. Usually these are all-lowercase, sometimes they are all uppercase (depending on your system.) Mixed case is almost always wrong.
(s/check LowercaseUUID (str (java.util.UUID/randomUUID)))
;; => nil
(s/check LowercaseUUID "c9254dc7-6626-4f94-ab80-9cf43d6666c2")
;; => nil
(s/check UppercaseUUID "C9254DC7-6626-4F94-AB80-9CF43D6666C2")
;; => nil
(s/check StringUUID "c9254dc7-6626-4f94-ab80-9cf43d6666c2")
;; => nil
(s/check StringUUID "C9254DC7-6626-4F94-AB80-9CF43D6666C2")
;; => nil
(s/check StringUUID "I'm not a UUID")
;; => (not (some-matching-either-clause? "I'm not a UUID"))
tonic.string> (s/check StringUUID (java.util.UUID/randomUUID)) ; UUID, but not a string.
;; => (not (some-matching-either-clause? a-java.util.UUID))Copyright © 2015-2017 Christopher Mark Gore, Soli Deo Gloria, all rights reserved.
Distributed under the Eclipse Public License either version 1.0 or (at your option) any later version.