use qtest's random seed to test Random.split_list

This commit is contained in:
Simon Cruanes 2015-11-13 16:17:40 +01:00
parent b311b7f312
commit ccf605de12

View file

@ -217,5 +217,5 @@ let uniformity_test ?(size_hint=10) k rng st =
Hashtbl.fold predicate histogram true
(*$T split_list
run ( uniformity_test 50_000 (split_list 10 ~len:3) )
run ~st:(Runner.random_state()) ( uniformity_test 50_000 (split_list 10 ~len:3) )
*)