micropelago/garage
3
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

jepsen: update jepsen and fix garage key info

Browse Source
This commit is contained in:
Alex Auvolat 2023-10-18 14:06:32 +02:00
parent ef5ca86dfc
commit 012ade5d4b
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
script/jepsen.garage/project.clj
View File

@ -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})

2
script/jepsen.garage/src/jepsen/garage/grg.clj
View File

@ -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)]