Set minimal concurrency value for a register workload

Author: ligurio

src/tarantool/runner.clj

@@ -24,6 +24,9 @@
                        [sets :as sets]
                        [counter :as counter]]))
 
+(def minimal-concurrency
+  10)
+
 (def workloads
   "A map of workload names to functions that can take opts and construct
   workloads.
@@ -47,7 +50,6 @@
    ;:monotonic       monotonic/workload
    ;:multimonotonic  multimonotonic/workload
    ;:pages           pages/workload
-   :none            (fn [_] tests/noop-test)
    :register        register/workload})
 
 (def standard-workloads
@@ -56,7 +58,7 @@
 
 (def workloads-expected-to-pass
   "A collection of workload names which we expect should actually pass."
-  (remove #{:register :counter-dec} standard-workloads))
+  (remove #{:counter-dec} standard-workloads))
 
 (def workload-options
   "For each workload, a map of workload options to all the values that option
@@ -161,6 +163,10 @@
             :engine    (:engine opts)
             :mvcc      (:mvcc opts)
             :pure-generators true
+            :concurrency (if (and (< (:concurrency opts) minimal-concurrency)
+                                  (= (:workload opts) :register))
+                             10
+                             (:concurrency opts))
             :generator gen
             :checker   (checker/compose {:perf        (checker/perf)
                                          :clock-skew  (checker/clock-plot)