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

4
script/jepsen.garage/shell.nix
View file

@ -1,5 +1,5 @@
{ pkgs ? import <nixpkgs> {} }: { pkgs ? import <nixpkgs> { } }:
pkgs.mkShell { pkgs.mkShell {
nativeBuildInputs = with pkgs; [ nativeBuildInputs = with pkgs; [
leiningen leiningen
vagrant vagrant

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