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

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