Reduce minimum benchmark runs to avoid taking too much time on CI

polytypic · polytypic · commit 72d782134c84 · 2024-08-27T14:35:54.000+03:00
diff --git a/bench/bench_bounded_q.ml b/bench/bench_bounded_q.ml
@@ -153,7 +153,8 @@ let run_one ~budgetf ~n_adders ~n_takers ?(n_msgs = 10 * Util.iter_factor) () =
     Printf.sprintf "%s, %s" (format "adder" n_adders) (format "taker" n_takers)
   in
 
-  Times.record ~budgetf ~n_domains ~init ~wrap ~work ()
+  Times.record ~budgetf ~n_domains ~n_warmups:1 ~n_runs_min:1 ~init ~wrap ~work
+    ()
   |> Times.to_thruput_metrics ~n:n_msgs ~singular:"message" ~config
 
 let run_suite ~budgetf =
diff --git a/bench/bench_semaphore.ml b/bench/bench_semaphore.ml
@@ -50,7 +50,8 @@ let run_one ~budgetf ~use_domains ~n_resources () =
       n_resources
       (if n_resources = 1 then "" else "s")
   in
-  Times.record ~budgetf ~n_domains ~init ~wrap ~work ()
+  Times.record ~budgetf ~n_domains ~n_warmups:1 ~n_runs_min:1 ~init ~wrap ~work
+    ()
   |> Times.to_thruput_metrics ~n:(n_ops * n_workers) ~singular:"acquired yield"
        ~config
 
