micropelago/garage
3
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

reformatting

Browse Source
This commit is contained in:
Alex Auvolat 2023-04-19 22:17:20 +02:00
parent 18ee8efb5f
commit 9ec4cca334
2 changed files with 8 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
script/jepsen.garage/shell.nix
View File

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

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