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 +1 -1
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files
Showing only changes of commit cfbfa09d24 - Show all commits

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

@ -81,7 +81,7 @@
([:invoke :read]) ([:invoke :read])
(assoc-in state [:read-must-contain (:process op)] (:add-done state)) (assoc-in state [:read-must-contain (:process op)] (:add-done state))
([:ok :read]) ([:ok :read])
(let [read-must-contain (get (:process op) (:read-must-contain state)) (let [read-must-contain (get (:read-must-contain state) (:process op))
new-missed (set/difference read-must-contain (:value op)) new-missed (set/difference read-must-contain (:value op))
new-unexpected (set/difference (:value op) (:add-started state))] new-unexpected (set/difference (:value op) (:add-started state))]
(assoc state (assoc state