simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 19:25:28 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix test for old ocaml

Browse source
This commit is contained in:
Simon Cruanes 2021-04-03 18:12:03 -04:00
parent 2440092eb5
commit 4f68b0fc37
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/core/tests/test_random.ml
View file

@ -22,7 +22,7 @@ let uniformity_test ?(size_hint=10) k rng st =
let confidence = 4. in let confidence = 4. in
let std = confidence *. (sqrt (kf *. variance)) in let std = confidence *. (sqrt (kf *. variance)) in
let predicate _key n acc = let predicate _key n acc =
let (<) (a : float) b = Stdlib.(<) a b in let (<) (a : float) b = CCShims_.Stdlib.(<) a b in
acc && abs_float (average -. float_of_int n) < std in acc && abs_float (average -. float_of_int n) < std in
Hashtbl.fold predicate histogram true Hashtbl.fold predicate histogram true