try to make the test_random uniformity test more robust
Some checks failed
format / format (push) Has been cancelled
Build and Test / build (push) Has been cancelled

just increase the sample size.
This commit is contained in:
Simon Cruanes 2025-12-20 11:19:45 -05:00
parent c72b60fd6f
commit eab2e1d33f
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4

View file

@ -31,5 +31,5 @@ let uniformity_test ?(size_hint = 10) k rng st =
let () =
let st = Random.State.make_self_init () in
let ok = run ~st (uniformity_test 50_000 (split_list 10 ~len:3)) in
let ok = run ~st (uniformity_test 500_000 (split_list 10 ~len:3)) in
if not ok then failwith "uniformity check failed"