random-test.mlw 162 Bytes
Newer Older
1 2
module Test

3
  use random.Random
4 5 6 7 8 9 10 11 12 13

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

end