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

improve a bit the resource test

Browse source
This commit is contained in:
Simon Cruanes 2023-08-13 22:47:54 -04:00
parent ed531e68e1
commit cfbcc72648
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
test/t_resource.ml
View file

@ -6,6 +6,9 @@ let ( let@ ) = ( @@ )
let () =
let a = Atomic.make 0 in
for _i = 1 to 1_000 do
(* give a chance to domains to die *)
if _i mod 100 = 0 then Thread.delay 0.8;
(* allocate a new pool at each iteration *)
let@ p = Pool.with_ ~min:4 () in
Pool.run_wait_block p (fun () -> Atomic.incr a)