mirror of
https://github.com/c-cube/moonpool.git
synced 2025-12-14 06:46:15 -05:00
small change to test
This commit is contained in:
parent
68fe7221b8
commit
359ec0352b
1 changed files with 1 additions and 1 deletions
|
|
@ -25,7 +25,7 @@ let () = assert (List.init 10 fib_direct = [ 1; 1; 2; 3; 5; 8; 13; 21; 34; 55 ])
|
||||||
let fib_40 : int lazy_t =
|
let fib_40 : int lazy_t =
|
||||||
lazy
|
lazy
|
||||||
(let@ _sp = Trace.with_span ~__FILE__ ~__LINE__ "fib40" in
|
(let@ _sp = Trace.with_span ~__FILE__ ~__LINE__ "fib40" in
|
||||||
let pool = Ws_pool.create ~min:8 () in
|
let pool = Fifo_pool.create ~min:8 () in
|
||||||
let r = fib ~on:pool 40 |> Fut.wait_block_exn in
|
let r = fib ~on:pool 40 |> Fut.wait_block_exn in
|
||||||
Ws_pool.shutdown pool;
|
Ws_pool.shutdown pool;
|
||||||
r)
|
r)
|
||||||
|
|
|
||||||
Loading…
Add table
Reference in a new issue