aboutsummaryrefslogblamecommitdiff
path: root/script/jepsen.garage/src/jepsen/garage.clj
blob: 1351c4a7f012c018d017d8020f0c88006c168514 (plain) (tree)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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))