From 8b34fb9ef1948237605bff41595d53282b78f4e8 Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Sun, 25 Jan 2015 23:39:03 +0100 Subject: [PATCH] details --- opam | 2 +- tests/threads/run_test_future.ml | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/opam b/opam index b394c531..a39f2257 100644 --- a/opam +++ b/opam @@ -6,7 +6,7 @@ maintainer: "simon.cruanes@inria.fr" build: [ ["./configure" "--prefix" prefix - "--disable-thread" + "--%{base-threads:enable%}-thread" "--disable-bench" "--disable-tests" "--%{lwt:enable}%-lwt" diff --git a/tests/threads/run_test_future.ml b/tests/threads/run_test_future.ml index bea590fe..c3767c6f 100644 --- a/tests/threads/run_test_future.ml +++ b/tests/threads/run_test_future.ml @@ -59,13 +59,13 @@ let test_time () = let test_timer () = let timer = Future.Timer.create () in let n = CCLock.create 1 in - let get = Future.make (fun () -> Thread.delay 0.7; CCLock.get n) in + let get = Future.make (fun () -> Thread.delay 0.8; CCLock.get n) in let _ = - Future.Timer.after timer 0.5 + Future.Timer.after timer 0.6 >>= fun () -> CCLock.update n (fun x -> x+2); Future.return() in let _ = - Future.Timer.after timer 0.2 + Future.Timer.after timer 0.4 >>= fun () -> CCLock.update n (fun x -> x * 4); Future.return() in OUnit.assert_equal 6 (Future.get get);