Carp/test/random.carp
2020-10-15 13:16:49 +02:00

11 lines
258 B
Plaintext

(load "Test.carp")
(use-all Random Test)
(deftest test
(assert-op test
0.536041
(do (Random.seed-from 33333.0) (Random.random))
"deterministic randomization with seed works as expected"
Double.approx))