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

more tests for WS_deque

Browse source
This commit is contained in:
Simon Cruanes 2023-10-25 09:56:56 -04:00
parent 078adae786
commit 78407c495d
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 27 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
test/t_ws_deque.ml
View file

@ -92,8 +92,35 @@ let t_heavy () =
assert (ref_sum = sum);
()
let t_many () =
print_endline "pushing many elements";
let d = D.create () in
let push_and_pop count =
for i = 1 to count do
(* if i mod 100_000 = 0 then Printf.printf "push %d\n%!" i; *)
D.push d i
done;
let n = ref 0 in
let continue = ref true in
while !continue do
match D.pop d with
| None -> continue := false
| Some _ -> incr n
done;
assert (!n = count)
in
push_and_pop 10_000;
push_and_pop 100_000;
push_and_pop 100_000_000;
print_endline "pushing many elements: ok";
()
let () =
let@ () = Trace_tef.with_setup () in
t_simple ();
t_heavy ();
t_many ();
()