Deuxfleurs/garage
41
56
Fork 73
Code Issues 99 Pull requests 14 Releases 30 Wiki Activity

better match exceptions
All checks were successful
continuous-integration/drone/push Build is passing
Details

Browse source
This commit is contained in:
Alex 2023-04-18 16:19:35 +02:00
parent 6dd7195d4e
commit ab736be9f0
1 changed files with 11 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
script/jepsen.garage/src/jepsen/garage.clj
View file

@ -9,6 +9,7 @@
[tests :as tests]]
[jepsen.control.util :as cu]
[jepsen.os.debian :as debian]
[slingshot.slingshot :refer [try+]]
[amazonica.aws.s3 :as s3]
[amazonica.aws.s3transfer :as s3transfer]))
@ -101,13 +102,14 @@
(setup! [this test])
(invoke! [this test op]
(case (:f op)
:get-object
(let [value-bytes (try
(-> (s3/get-object (:creds this) grg-bucket grg-object)
:input-stream
slurp)
(catch Exception e nil))]
(assoc op :type :ok, :value value-bytes))
:get-object (try+
(let [value
(-> (s3/get-object (:creds this) grg-bucket grg-object)
:input-stream
slurp)]
(assoc op :type :ok, :value value))
(catch (re-find #"Key not found" (.getMessage %)) ex
(assoc op :type :ok, :value nil)))
:put-object
(let [some-bytes (.getBytes (:value op) "UTF-8")
bytes-stream (java.io.ByteArrayInputStream. some-bytes)]
@ -137,10 +139,10 @@
:os debian/os
:db (db "v0.8.2")
:client (Client. nil)
:generator (->> (gen/mix [op-get op-put])
:generator (->> (gen/mix [op-get op-put op-del])
(gen/stagger 1)
(gen/nemesis nil)
(gen/time-limit 15))}))
(gen/time-limit 20))}))
(defn -main
"Handles command line arguments. Can either run a test, or a web server for