rand.ml « lib-random « tests « testsuite - adrien/ocaml - Unnamed repository; edit this file 'description' to name the repository.

summary refs log tree commit diff stats

path: root/testsuite/tests/lib-random/rand.ml

blob: e8c5cb8bc7dde8182b153aedfe02c1dafa2a53bd (plain)

let () =
  Random.self_init ();
  let x = Random.int 10000 in
  Random.self_init ();
  let y = Random.int 1000 in
  if x = y then print_endline "FAILED" else print_endline "PASSED"