We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 32c399e commit 46b0ffeCopy full SHA for 46b0ffe
src/domainslib/chan_stm_tests.ml
@@ -73,7 +73,7 @@ module ChT_seq = STM_sequential.Make(ChConf)
73
module ChT_dom = STM_domain.Make(ChConf)
74
;;
75
QCheck_base_runner.run_tests_main
76
- (let count,name = 500,"global Domainslib.Chan test" in [
77
- ChT_seq.agree_test ~count ~name;
78
- ChT_dom.agree_test_par ~count ~name;
79
- ])
+ (let count = 500 in
+ [ChT_seq.agree_test ~count ~name:"STM Domainslib.Chan test sequential";
+ ChT_dom.agree_test_par ~count ~name:"STM Domainslib.Chan test parallel";
+ ])
0 commit comments