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

patch tests

Browse source
This commit is contained in:
Simon Cruanes 2014-09-03 10:20:34 +02:00
parent 8ade96b2f6
commit c14a0a4bbb
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
tests/benchs.ml
View file

@ -31,7 +31,7 @@ module IMap = Map.Make(struct
let compare i j = i - j let compare i j = i - j
end) end)
module ICCHashtbl = CCHashtbl.Make(struct module ICCHashtbl = CCFlatHashtbl.Make(struct
type t = int type t = int
let equal i j = i = j let equal i j = i = j
let hash i = i let hash i = i
@ -111,7 +111,7 @@ let bench_maps1 () =
"ipersistenthashtbl_add", (fun n -> ignore (ipersistenthashtbl_add n)); "ipersistenthashtbl_add", (fun n -> ignore (ipersistenthashtbl_add n));
"skiplist_add", (fun n -> ignore (skiplist_add n)); "skiplist_add", (fun n -> ignore (skiplist_add n));
"imap_add", (fun n -> ignore (imap_add n)); "imap_add", (fun n -> ignore (imap_add n));
"cchashtbl_add", (fun n -> ignore (icchashtbl_add n)) "ccflathashtbl_add", (fun n -> ignore (icchashtbl_add n))
] ]
in in
Bench.summarize 1. res Bench.summarize 1. res
@ -217,7 +217,7 @@ let bench_maps2 () =
"ipersistenthashtbl_replace", (fun n -> ignore (ipersistenthashtbl_replace n)); "ipersistenthashtbl_replace", (fun n -> ignore (ipersistenthashtbl_replace n));
"skiplist_replace", (fun n -> ignore (skiplist_replace n)); "skiplist_replace", (fun n -> ignore (skiplist_replace n));
"imap_replace", (fun n -> ignore (imap_replace n)); "imap_replace", (fun n -> ignore (imap_replace n));
"cchashtbl_replace", (fun n -> ignore (icchashtbl_replace n)); "ccflathashtbl_replace", (fun n -> ignore (icchashtbl_replace n));
] ]
in in
Bench.summarize 1. res Bench.summarize 1. res