Experiment: make Sys STM test negative across all archs

ocaml-multicore · Apr 23, 2024 · c137861 · c137861
1 parent 5d0076b
commit c137861
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/src/sys/stm_tests.ml b/src/sys/stm_tests.ml
@@ -395,8 +395,6 @@ module Sys_dom = STM_domain.Make(SConf)
 
 ;;
 QCheck_base_runner.run_tests_main [
-    Sys_seq.agree_test              ~count:1000 ~name:"STM Sys test sequential";
-    if Sys.unix && (uname_os () = Some "Linux" || arch () = Some "arm64")
-    then Sys_dom.agree_test_par     ~count:200  ~name:"STM Sys test parallel"
-    else Sys_dom.neg_agree_test_par ~count:1000 ~name:"STM Sys test parallel"
+    Sys_seq.agree_test         ~count:1000 ~name:"STM Sys test sequential";
+    Sys_dom.neg_agree_test_par ~count:2500 ~name:"STM Sys test parallel"
   ]