forked from
anil.recoil.org/ocaml-conpool
TCP/TLS connection pooling for Eio
fix(lint): restructure cookeio tests, resolve E330
- Move test code from test.ml to test_cookeio.ml (test.ml is runner only)
- Each test is a standalone `let test_foo () = ...` with Eio_main.run
- Replace Str with Re for contains_substring helper
- Remove inline test lambdas from suite definition
- Add test_cookeio.mli with standard suite type
+5
-5
+5
-5
test/stress_test.ml
+5
-5
test/stress_test.ml
···
884
884
presets
885
885
886
886
(** Parse command line arguments *)
887
-
type mode = Single of config | AllPresets | Extended | ListPresets
887
+
type mode = Single of config | All_presets | Extended | List_presets
888
888
889
889
let parse_args () =
890
890
let mode = ref (Single default_config) in
···
900
900
let specs =
901
901
[
902
902
( "--all",
903
-
Arg.Unit (fun () -> mode := AllPresets),
903
+
Arg.Unit (fun () -> mode := All_presets),
904
904
"Run all preset test configurations" );
905
905
( "--extended",
906
906
Arg.Unit (fun () -> mode := Extended),
907
907
"Run extended stress test (30 servers, 1000 clients, 100 msgs each = \
908
908
3M messages)" );
909
909
( "--list",
910
-
Arg.Unit (fun () -> mode := ListPresets),
910
+
Arg.Unit (fun () -> mode := List_presets),
911
911
"List available presets" );
912
912
( "--preset",
913
913
Arg.String
···
969
969
let mode, custom_config, output_file = parse_args () in
970
970
971
971
match mode with
972
-
| ListPresets ->
972
+
| List_presets ->
973
973
Printf.printf "Available presets:\n";
974
974
List.iter
975
975
(fun c ->
···
1006
1006
"Test: %s - %d messages, %.2f msg/s, %.2fms avg latency, %d errors\n"
1007
1007
result.test_name result.total_messages result.throughput
1008
1008
result.avg_latency result.total_errors
1009
-
| AllPresets ->
1009
+
| All_presets ->
1010
1010
Eio_main.run @@ fun env ->
1011
1011
let results = run_all_presets ~env in
1012
1012