現在、単体テストを実行するために次のものがあります。
let suite =
"suite">:::
["test_1">:: test_1;
"test_2">:: test_2;]
;;
let () =
run_test_tt_main suite
;;
問題は、test_1 と test_2 に一部の TCP 通信が含まれており、ポートが共有されていることです。順番に実行する必要がありますが、順序は気にしません。
編集：コマンドライン引数を指定して、それらを順番に実行できます
test-name -runner sequential
しかし、ソース コードでこのオプションをデフォルトにするにはどうすればよいでしょうか。