(load "Test.carp")

(use-all Random Test)

(defn main []
  (with-test test
    (assert-op test
               0.658908
               (Random.random)
               "deterministic randomization works as expected"
               Double.approx)
    (assert-op test
               0.536041
               (do (Random.seed 33333.0) (Random.random))
               "deterministic randomization with seed works as expected"
               Double.approx)))