runner all-test

Needed for #34

Author: ligurio

src/tarantool/runner.clj

@@ -49,6 +49,10 @@
    ;:pages           pages/workload
    :register        register/workload})
 
+(def standard-workloads
+  "The workload names we run for test-all by default."
+  (keys workloads))
+
 (def workload-options
   "For each workload, a map of workload options to all the values that option
   supports."
@@ -148,10 +152,23 @@
                                          :exceptions  (checker/unhandled-exceptions)
                                          :workload    (:checker workload)})})))
 
+(defn all-tests
+  "Takes parsed CLI options and constructs a sequence of test options, by
+  combining all workloads and nemeses."
+  [opts]
+  (let [nemeses     (if-let [n (:nemesis opts)]  [n] standard-nemeses)
+        workloads   (if-let [w (:workload opts)] [w] standard-workloads)
+        counts      (range (:test-count opts))]
+    (->> (for [i counts, n nemeses, w workloads]
+           (assoc opts :nemesis n :workload w))
+         (map tarantool-test))))
+
 (defn -main
   "Handles command line arguments."
   [& args]
   (cli/run! (merge (cli/single-test-cmd {:test-fn tarantool-test
                                          :opt-spec cli-opts})
+                   (cli/test-all-cmd {:test-fn  all-tests
+                                      :opt-spec cli-opts})
                    (cli/serve-cmd))
             args))