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.
24 lines
560 B
24 lines
560 B
(import ../nanoid :as n)
|
|
|
|
(loop [x :range [0 100]]
|
|
(assert
|
|
(= 21 (length (n/gen-non-secure)))
|
|
"generates id of length 21"))
|
|
|
|
(loop [x :range [0 100]]
|
|
(assert
|
|
(= 10 (length (n/gen-non-secure :size 10)))
|
|
"generates id of length 10"))
|
|
|
|
(let [results (table)]
|
|
(loop [x :range [0 10_000]]
|
|
(let [id (n/gen-non-secure)]
|
|
(assert (nil? (results id))
|
|
(string/format "%q not unique" id))
|
|
(put results id true))))
|
|
|
|
(assert
|
|
(= "eXB2i0JMOYeczrdWVJiYC"
|
|
(n/gen-non-secure :rng (math/rng 123)))
|
|
"allows custom rng")
|