forked from Deuxfleurs/garage
jepsen: update jepsen and fix garage key info
This commit is contained in:
parent
ef5ca86dfc
commit
012ade5d4b
2 changed files with 2 additions and 2 deletions
|
@ -5,6 +5,6 @@
|
||||||
:url "https://www.gnu.org/licenses/agpl-3.0.en.html"}
|
:url "https://www.gnu.org/licenses/agpl-3.0.en.html"}
|
||||||
:main jepsen.garage
|
:main jepsen.garage
|
||||||
:dependencies [[org.clojure/clojure "1.11.1"]
|
:dependencies [[org.clojure/clojure "1.11.1"]
|
||||||
[jepsen "0.3.2-SNAPSHOT"]
|
[jepsen "0.3.3-SNAPSHOT"]
|
||||||
[amazonica "0.3.163"]]
|
[amazonica "0.3.163"]]
|
||||||
:repl-options {:init-ns jepsen.garage})
|
:repl-options {:init-ns jepsen.garage})
|
||||||
|
|
|
@ -87,7 +87,7 @@
|
||||||
(defn s3-creds
|
(defn s3-creds
|
||||||
"Get S3 credentials for node"
|
"Get S3 credentials for node"
|
||||||
[node]
|
[node]
|
||||||
(let [key-info (c/on node (c/exec binary :key :info grg-key))
|
(let [key-info (c/on node (c/exec binary :key :info grg-key :--show-secret))
|
||||||
[_ ak sk] (re-matches
|
[_ ak sk] (re-matches
|
||||||
#"(?s).*Key ID: (.*)\nSecret key: (.*)\nCan create.*"
|
#"(?s).*Key ID: (.*)\nSecret key: (.*)\nCan create.*"
|
||||||
key-info)]
|
key-info)]
|
||||||
|
|
Loading…
Reference in a new issue