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

optimize a bit the tests

Browse source
This commit is contained in:
Simon Cruanes 2015-09-16 20:22:24 +02:00
parent ed31060d7d
commit f296e77f63
3 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/data/CCFQueue.ml
View file

@ -292,7 +292,7 @@ let nth i q =
try Some (nth_exn i q)
with Failure _ -> None
(*$Q
(*$Q & ~count:30
(Q.list Q.int) (fun l -> \
let len = List.length l in let idx = CCList.(0 -- (len - 1)) in \
let q = of_list l in \

4
src/data/CCHashconsedSet.ml
View file

@ -352,7 +352,7 @@ module Make(E : ELT) : S with type elt = E.t = struct
else hashcons_ (N (p2, m2, l2, union r2 a))
else join_ a p1 b p2
(*$Q
(*$Q & ~count:50
Q.(list int) (fun l -> \
let module S = Make(CCInt) in \
let s = S.of_list l in S.equal s (S.union s s))
@ -462,7 +462,7 @@ module Make(E : ELT) : S with type elt = E.t = struct
let to_list t = fold (fun x l -> x:: l) t []
(*$Q
(*$Q & ~count:50
Q.(list int) (fun l -> \
let module S = Make(CCInt) in \
S.of_list l |> S.cardinal = List.length l)

7
src/threads/CCFuture.ml
View file

@ -451,12 +451,13 @@ let sleep time = make (fun () -> Thread.delay time)
(*$R
let start = Unix.gettimeofday () in
let l = CCList.(1 -- 10)
|> List.map (fun _ -> make (fun () -> Thread.delay 0.5))
let pause = 0.2 and n = 10 in
let l = CCList.(1 -- n)
|> List.map (fun _ -> make (fun () -> Thread.delay pause))
in
List.iter get l;
let stop = Unix.gettimeofday () in
OUnit.assert_bool "some_parallelism" (stop -. start < 10. *. 0.5);
OUnit.assert_bool "some_parallelism" (stop -. start < float_of_int n *. pause);
*)
(** {2 Event timer} *)