Deuxfleurs/garage
44
56
Fork 73
Code Issues 100 Pull requests 14 Releases 30 Wiki Activity

Jepsen testing (NLnet task 3 subtask 1) #544

Merged
lx merged 41 commits from jepsen into main 2024-01-11 10:52:13 +00:00
Conversation 0 Commits 41 Files changed 22 +2 -2
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files
Showing only changes of commit 012ade5d4b - Show all commits

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