Add math/rng-buffer.

Allow math/seedrandom to use buffer as seed.
This commit is contained in:
Calvin Rose
2019-12-03 20:33:21 -06:00
parent 600bed9f6d
commit 70328437f1
2 changed files with 56 additions and 4 deletions
+5
View File
@@ -208,6 +208,11 @@
(for i 0 75
(test-rng (math/rng (:int seedrng))))
(assert (deep-not= (-> 123 math/rng (:buffer 16))
(-> 456 math/rng (:buffer 16))) "math/rng-buffer 1")
(assert-no-error "math/rng-buffer 2" (math/seedrandom "abcdefg"))
# OS Date test
(assert (deep= {:year-day 0