diff options
| author | Alex Auvolat <alex@adnab.me> | 2023-04-18 12:14:13 +0200 |
|---|---|---|
| committer | Alex Auvolat <alex@adnab.me> | 2023-10-18 12:03:11 +0200 |
| commit | 7011b71fbd782e199417ce9afa44a8c220885b4a (patch) | |
| tree | 4fc1acd135f3fbc415259f5fb6499afa78030934 /script/jepsen.garage/src/jepsen | |
| parent | a5e8ffeb63a193e5b0e020e4c014687e57f85c23 (diff) | |
| download | garage-7011b71fbd782e199417ce9afa44a8c220885b4a.tar.gz garage-7011b71fbd782e199417ce9afa44a8c220885b4a.zip | |
jepsen: wip
Diffstat (limited to 'script/jepsen.garage/src/jepsen')
| -rw-r--r-- | script/jepsen.garage/src/jepsen/garage.clj | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/script/jepsen.garage/src/jepsen/garage.clj b/script/jepsen.garage/src/jepsen/garage.clj new file mode 100644 index 00000000..1351c4a7 --- /dev/null +++ b/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)) |