From ccf605de12e686e58166d470caf311fff3356cd4 Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Fri, 13 Nov 2015 16:17:40 +0100 Subject: [PATCH] use qtest's random seed to test `Random.split_list` --- src/core/CCRandom.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/core/CCRandom.ml b/src/core/CCRandom.ml index 1a54e544..0ece0020 100644 --- a/src/core/CCRandom.ml +++ b/src/core/CCRandom.ml @@ -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) ) *)