random-test.mlw 169 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13
module Test

  use import random.Random

  let test1 () =
    init 42;
    let x = random_int 10 in
    init 42;
    let y = random_int 10 in
    assert { x = y }

end