networkException/garage
1
0
Fork 0
forked from Deuxfleurs/garage
Code Pull requests Activity

reformatting

Browse source
This commit is contained in:
Alex 2023-04-19 22:17:20 +02:00
parent a549122acd
commit 6dcb9d31ff
2 changed files with 8 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
script/jepsen.garage/src/jepsen/garage/set.clj
View file

@ -57,8 +57,6 @@
:unexpected #{}} :unexpected #{}}
final (reduce final (reduce
(fn [state op] (fn [state op]
(info "state:" state)
(info "operation:" op)
(case [(:type op) (:f op)] (case [(:type op) (:f op)]
([:invoke :add]) ([:invoke :add])
(assoc state :add-started (conj (:add-started state) (:value op))) (assoc state :add-started (conj (:add-started state) (:value op)))
@ -77,7 +75,6 @@
state)) state))
init history) init history)
valid? (and (empty? (:missed final)) (empty? (:unexpected final)))] valid? (and (empty? (:missed final)) (empty? (:unexpected final)))]
(info "final state:" final)
(assoc final :valid? valid?))))) (assoc final :valid? valid?)))))
(defn workload1 (defn workload1
@ -110,7 +107,7 @@
:timeline (timeline/html)})) :timeline (timeline/html)}))
:generator (independent/concurrent-generator :generator (independent/concurrent-generator
10 10
(range 100) (range)
(fn [k] (fn [k]
(gen/mix [op-add-rand100 op-read])))}) (gen/mix [op-add-rand100 op-read])))})