mirror of
https://github.com/carp-lang/Carp.git
synced 2024-11-12 12:49:13 +03:00
16 lines
416 B
Plaintext
16 lines
416 B
Plaintext
(load "Test.carp")
|
|
|
|
(use-all Random Test)
|
|
|
|
(deftest test
|
|
(assert-op test
|
|
0.658908
|
|
(Random.random)
|
|
"deterministic randomization works as expected"
|
|
Double.approx)
|
|
(assert-op test
|
|
0.536041
|
|
(do (Random.seed-from 33333.0) (Random.random))
|
|
"deterministic randomization with seed works as expected"
|
|
Double.approx))
|