garage/script/jepsen.garage/src/jepsen/garage.clj

20 lines
553 B
Clojure
Raw Normal View History

2023-04-18 10:14:13 +00:00
(ns jepsen.garage
(:require [jepsen.cli :as cli]
[jepsen.tests :as tests]))
(defn garage-test
"Given an options map from the command line runner (e.g. :nodes, :ssh,
:concurrency, ...), constructs a test map."
[opts]
(merge tests/noop-test
{:pure-generators true}
opts))
(defn -main
"Handles command line arguments. Can either run a test, or a web server for
browsing results."
[& args]
2023-04-18 11:59:03 +00:00
(cli/run! (merge (cli/single-test-cmd {:test-fn garage-test})
(cli/serve-cmd))
2023-04-18 10:14:13 +00:00
args))