Skip to content
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
8 changes: 8 additions & 0 deletions src/neg_tests/dune
Original file line number Diff line number Diff line change
Expand Up @@ -23,6 +23,14 @@
(action (run %{test} --verbose))
)

(test
(name stm_tests_domain_ref_asym)
(modules stm_tests_domain_ref_asym)
(package multicoretests)
(libraries stm_tests_spec_ref qcheck-stm.domain)
(action (run %{test} --verbose))
)

(test
(name stm_tests_thread_ref)
(modules stm_tests_thread_ref)
Expand Down
2 changes: 0 additions & 2 deletions src/neg_tests/stm_tests_domain_ref.ml
Original file line number Diff line number Diff line change
Expand Up @@ -6,6 +6,4 @@ module RT_int64 = STM_domain.Make(RConf_int64)
QCheck_base_runner.run_tests_main
[RT_int.neg_agree_test_par ~count:1000 ~name:"STM int ref test parallel";
RT_int64.neg_agree_test_par ~count:1000 ~name:"STM int64 ref test parallel";
RT_int.neg_agree_test_par_asym ~count:2000 ~name:"STM int ref test parallel asymmetric";
RT_int64.neg_agree_test_par_asym ~count:2000 ~name:"STM int64 ref test parallel asymmetric";
]
9 changes: 9 additions & 0 deletions src/neg_tests/stm_tests_domain_ref_asym.ml
Original file line number Diff line number Diff line change
@@ -0,0 +1,9 @@
open Stm_tests_spec_ref

module RT_int = STM_domain.Make(RConf_int)
module RT_int64 = STM_domain.Make(RConf_int64)
;;
QCheck_base_runner.run_tests_main
[RT_int.neg_agree_test_par_asym ~count:5000 ~name:"STM int ref test parallel asymmetric";
RT_int64.neg_agree_test_par_asym ~count:5000 ~name:"STM int64 ref test parallel asymmetric";
]