jepsen: wip

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

@@ -0,0 +1,18 @@
+(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]
+  (cli/run! (cli/single-test-cmd {:test-fn garage-test})
+            args))