Generate EVRYTHNG Refs for example data

evt_refs.clj

; lein try org.clojure/test.check

(require '[clojure.test.check.generators :as gen])

;"abcdefghkmnpqrstwxyABCDEFGHKMNPQRSTUVWXY23456789"

(def prefix-u (partial into ["U"]))

(def chars-to-str (partial apply str))

(def thng-id (gen/fmap 
    (comp chars-to-str prefix-u) 
    (gen/vector (gen/elements [\T \H \N \G \h \n \g]) 23)))

(def product-id (gen/fmap 
    (comp chars-to-str prefix-u) 
    (gen/vector (gen/elements [\P \R \D \U \C \T \c \t]) 23)))

(def collection-id (gen/fmap 
    (comp chars-to-str prefix-u) 
    (gen/vector (gen/elements [\C \E \T \N \c \e \t \n]) 23)))


(-> (gen/sample collection-id 100) sort)