You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
19 lines
421 B
19 lines
421 B
(import ../nanoid :as n)
|
|
|
|
(loop [x :range [0 100]]
|
|
(assert
|
|
(= 21 (length (n/gen)))
|
|
"generates id of length 21"))
|
|
|
|
(loop [x :range [0 100]]
|
|
(assert
|
|
(= 10 (length (n/gen :size 10)))
|
|
"generates id of length 10"))
|
|
|
|
(let [results (table)]
|
|
(loop [x :range [0 10_000]]
|
|
(let [id (n/gen)]
|
|
(assert (nil? (results id))
|
|
(string/format "%q not unique" id))
|
|
(put results id true))))
|