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

test: regression test for #210

Browse source
This commit is contained in:
Simon Cruanes 2018-03-26 11:35:21 -05:00
parent f07cae6c82
commit 323a6bb40a
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/core/CCRandom.ml
View file

@ -228,3 +228,8 @@ let uniformity_test ?(size_hint=10) k rng st =
(*$T split_list (*$T split_list
run ~st:(QCheck_runner.random_state()) ( uniformity_test 50_000 (split_list 10 ~len:3) ) run ~st:(QCheck_runner.random_state()) ( uniformity_test 50_000 (split_list 10 ~len:3) )
*) *)
(*$R
let open Containers in
ignore @@ List.random_choose [1;2;3] (Random.get_state())
*)