forked from Deuxfleurs/garage
19 lines
510 B
Clojure
19 lines
510 B
Clojure
|
(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))
|