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

fix props

Browse source
This commit is contained in:
Simon Cruanes 2023-10-25 01:01:51 -04:00
parent ef05146e03
commit 91c0c3f6c1
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
test/t_props.ml
View file

@ -12,10 +12,10 @@ let with_pool ~kind () f =
let () =
add_test @@ fun ~kind ->
let@ pool = with_pool ~kind () in
Q.Test.make ~name:"map then join_list"
Q.(small_list small_int)
(fun l ->
let@ pool = with_pool ~kind () in
let l' = List.map (fun x -> Fut.spawn ~on:pool (fun () -> x + 1)) l in
let l' = Fut.join_list l' |> Fut.wait_block_exn in
if l' <> List.map succ l then Q.Test.fail_reportf "bad list";
@ -23,10 +23,10 @@ let () =
let () =
add_test @@ fun ~kind ->
let@ pool = with_pool ~kind () in
Q.Test.make ~name:"map bind"
Q.(small_list small_int)
(fun l ->
let@ pool = with_pool ~kind () in
let open Fut.Infix_local in
let l' =
l