fix CI for lwt tests

This commit is contained in:
Simon Cruanes 2025-07-10 09:02:34 -04:00
parent da551edbd3
commit 50b9dd9b62
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
3 changed files with 11 additions and 7 deletions

View file

@ -36,9 +36,12 @@
(= %{system} "linux")
(>= %{ocaml_version} 5.0)))
(action
(with-stdout-to
%{targets}
(run ./run_echo.sh -n 10 --n-conn=2 -v))))
(setenv
CI_MODE
1
(with-stdout-to
%{targets}
(run ./run_echo.sh -n 10 --n-conn=2 -v)))))
(rule
(alias runtest)

View file

@ -1,6 +1,7 @@
module M_lwt = Moonpool_lwt
module Trace = Trace_core
let ci_mode = Option.is_some @@ Sys.getenv_opt "CI_MODE"
let spf = Printf.sprintf
let await_lwt = Moonpool_lwt.await_lwt
let ( let@ ) = ( @@ )
@ -68,9 +69,10 @@ let main ~port ~n ~n_conn ~verbose ~msg_per_conn () : unit =
Printf.printf "all done\n%!";
let elapsed = Unix.gettimeofday () -. t0 in
Printf.printf " sent %d messages in %.4fs (%.2f msg/s)\n%!" !n_msg_total
elapsed
(float !n_msg_total /. elapsed);
if not ci_mode then
Printf.printf " sent %d messages in %.4fs (%.2f msg/s)\n%!" !n_msg_total
elapsed
(float !n_msg_total /. elapsed);
()
let () =

View file

@ -1,7 +1,6 @@
run echo server on port=12346
listening on port 12346
run echo client -p 12346 -n 10 --n-conn=2 -v
sent 100 messages in 0.0175s (5720.16 msg/s)
all done
connecting to port 12346 (10 msg per conn, 10 conns total, 2 max at a time)
read: hello 1