Add a test for the JavaScript case

ocaml · Mar 15, 2021 · efd6c45 · efd6c45
1 parent 9352d81
commit efd6c45
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 0 deletions.
diff --git a/testsuite/tests/lib-random/int63.ml b/testsuite/tests/lib-random/int63.ml
@@ -0,0 +1,10 @@
+(* TEST *)
+
+(* Ensure that a bound which is negative on 31-bit OCaml but positive on 32-bit
+   OCaml produces the same result on 64-bit OCaml. *)
+let bound = 0x6FFFFFFF in
+if bound < 0 then (* 31-bit integers *)
+  print_endline "6beb775a"
+else (* 32 or 64-bit integers *)
+  let s = Random.State.make [| 42 |] in
+  Printf.printf "%x\n" (Random.State.int63 s bound)
diff --git a/testsuite/tests/lib-random/int63.reference b/testsuite/tests/lib-random/int63.reference
@@ -0,0 +1 @@
+6beb775a