Increase STM Bigarray parallel test count

Author: jmid

src/bigarray/stm_tests.ml

@@ -93,8 +93,7 @@ end
 module BigArraySTM_seq = STM_sequential.Make(BAConf)
 module BigArraySTM_dom = STM_domain.Make(BAConf)
 ;;
-QCheck_base_runner.run_tests_main
-  (let count = 1000 in
-   [BigArraySTM_seq.agree_test         ~count ~name:"STM BigArray test sequential";
-    BigArraySTM_dom.neg_agree_test_par ~count ~name:"STM BigArray test parallel"
-])
+QCheck_base_runner.run_tests_main [
+  BigArraySTM_seq.agree_test         ~count:1000 ~name:"STM BigArray test sequential";
+  BigArraySTM_dom.neg_agree_test_par ~count:5000 ~name:"STM BigArray test parallel"
+]