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

update tests

Browse source
This commit is contained in:
Simon Cruanes 2024-02-17 12:37:28 -05:00
parent 8bfe76b3e0
commit ed6db54b1a
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
test/lwt/hash_client.ml
View file

@ -15,7 +15,7 @@ let main ~port ~runner ~dir ~n_conn () : unit Lwt.t =
(* TODO: *) (* TODO: *)
let run_task () : unit = let run_task () : unit =
let _sp = Trace.enter_manual_toplevel_span ~__FILE__ ~__LINE__ "run-task" in let _sp = Trace.enter_manual_toplevel_span ~__FILE__ ~__LINE__ "run-task" in
M_lwt.TCP_client.with_connect' addr @@ fun ic oc -> M_lwt.TCP_client.with_connect_lwt addr @@ fun ic oc ->
let rec walk file : unit = let rec walk file : unit =
if not (Sys.file_exists file) then if not (Sys.file_exists file) then
() ()

2
test/lwt/hash_server.ml
View file

@ -212,7 +212,7 @@ let main ~port ~runner () : unit Lwt.t =
in in
let addr = Unix.ADDR_INET (Unix.inet_addr_any, port) in let addr = Unix.ADDR_INET (Unix.inet_addr_any, port) in
let _server = M_lwt.TCP_server.establish' ~runner addr handle_client in let _server = M_lwt.TCP_server.establish_lwt ~runner addr handle_client in
lwt_fut lwt_fut