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

update tests

Browse source
This commit is contained in:
Simon Cruanes 2024-02-27 22:32:01 -05:00
parent c39435d8eb
commit 22f43670a7
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
2 changed files with 1943 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1933
test/fiber/t_fls.expected
View file

File diff suppressed because it is too large Load diff

13
test/fiber/t_fls.ml
View file

@ -95,7 +95,7 @@ module Render = struct
List.iter (pp_tree 2 oc) self.roots
end
let () =
let run ~pool ~pool_name () =
let tracer = Tracer.create () in
let sub_sub_child ~idx ~idx_child ~idx_sub ~idx_sub_sub () =
@ -155,8 +155,7 @@ let () =
List.iter F.await subs
in
let@ pool = Ws_pool.with_ () in
Printf.printf "run test on pool = %s\n" pool_name;
let fibs =
List.init 8 (fun idx -> F.spawn_top ~on:pool (fun () -> top idx))
in
@ -168,3 +167,11 @@ let () =
Render.pp stdout tree;
Printf.printf "done\n%!";
()
let () =
(let@ pool = Ws_pool.with_ () in
run ~pool ~pool_name:"ws_pool" ());
(let@ pool = Fifo_pool.with_ () in
run ~pool ~pool_name:"ws_pool" ());
()