From 6ccad958c490506f19afa97583b5102782537b7a Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Sat, 26 Mar 2016 11:53:58 +0100 Subject: [PATCH] make some tests a bit faster --- src/threads/CCPool.ml | 2 +- src/threads/CCTimer.ml | 8 ++++---- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/src/threads/CCPool.ml b/src/threads/CCPool.ml index 86ea2bf5..401863ca 100644 --- a/src/threads/CCPool.ml +++ b/src/threads/CCPool.ml @@ -264,7 +264,7 @@ module Make(P : PARAM) = struct let l = List.rev_map (fun i -> Fut.make (fun () -> - Thread.delay 0.1; + Thread.delay 0.05; 1 )) l in let l' = List.map Fut.get l in diff --git a/src/threads/CCTimer.ml b/src/threads/CCTimer.ml index cb4739dd..3fd93934 100644 --- a/src/threads/CCTimer.ml +++ b/src/threads/CCTimer.ml @@ -184,12 +184,12 @@ let stop timer = let timer = create () in let n = CCLock.create 1 in let res = CCLock.create 0 in - after timer 0.6 + after timer 0.3 ~f:(fun () -> CCLock.update n (fun x -> x+2)); ignore (Thread.create - (fun _ -> Thread.delay 0.8; CCLock.set res (CCLock.get n)) ()); - after timer 0.4 + (fun _ -> Thread.delay 0.4; CCLock.set res (CCLock.get n)) ()); + after timer 0.2 ~f:(fun () -> CCLock.update n (fun x -> x * 4)); - Thread.delay 1. ; + Thread.delay 0.6 ; OUnit.assert_equal 6 (CCLock.get res); *)