2

目前我有以下运行我的单元测试：

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

但是如何在源代码中将此选项设置为默认选项？

4

0 回答 0