Add Jepsen smoke test

Author: bootjp

.gitignore

@@ -21,7 +21,7 @@
 go.work
 
 # Built binary
-elastickv
+/elastickv
 
 # Clojure/Leiningen build artifacts
 jepsen/target/

README.md

@@ -82,8 +82,8 @@ chmod +x ~/lein
 ```
 
 These Jepsen tests execute concurrent read and write operations while a nemesis
-injects network partitions and filesystem faults via errorfs. Jepsen's
-linearizability checker verifies the history.
+injects random network partitions. Jepsen's linearizability checker verifies the
+history.
 
 
 

jepsen/project.clj

@@ -3,5 +3,6 @@
   :repositories [["clojars" {:url "https://repo.clojars.org"}]]
   :dependencies [[org.clojure/clojure "1.11.1"]
                  [jepsen "0.3.5"]
-                 [redis.clients/jedis "5.1.0"]]
+                 [redis.clients/jedis "5.1.0" :exclusions [org.slf4j/slf4j-api]]
+                 [org.slf4j/slf4j-nop "2.0.9"]]
   :main elastickv.jepsen-test)

jepsen/src/elastickv/jepsen_test.clj

@@ -7,10 +7,8 @@
              [client :as client]
              [checker :as checker]]
             [jepsen.checker.timeline :as timeline]
-            [jepsen.checker.linearizable :as linear]
-            [jepsen.tests.register :as register]
-            [jepsen.nemesis :as nemesis]
-            [jepsen.nemesis.fs :as fs])
+            [jepsen.tests.linearizable-register :as register]
+            [jepsen.nemesis :as nemesis])
   (:import (redis.clients.jedis Jedis)))
 
 (defrecord RedisClient [port]
@@ -40,12 +38,7 @@
      :db db/noop
      :client (->RedisClient 63791)
      :concurrency 5
-     :nemesis (nemesis/compose
-               {:partition (nemesis/partition-random-halves)
-                :errorfs   (fs/errorfs)})
-     :checker (checker/compose
-               {:linear   (linear/checker)
-                :timeline (timeline/html)})}))
+     :nemesis (nemesis/partition-random-halves)}))
 
 (defn -main
   [& args]

jepsen/test/elastickv/jepsen_test_test.clj

@@ -0,0 +1,6 @@
+(ns elastickv.jepsen-test-test
+  (:require [clojure.test :refer :all]
+            [elastickv.jepsen-test :as jt]))
+
+(deftest builds-test-spec
+  (is (map? (jt/elastickv-test))))