 (def cas-crash-subset-test
   (cas-register-test "crash"
                      {:nemesis crash-nemesis}))
+
+(def cas-clock-drift-test
+  (cas-register-test "clock drift"
+                     {:nemesis (nemesis/clock-scrambler 10000)}))
+
+


(defn db
  "Atomix database"
  [version]
  (reify db/DB
    (setup! [this test node]
      (doto node
        (install! version)
        (start! test)))

    (teardown! [this test node]


; Tests

(defn- atomix-test
  "Returns a map of atomix test settings"
  [name]
  (merge tests/noop-test
         {:name (str "atomix " name)
          :os   debian/os
          :db   (db)
          }))

(defn- cas-register-test
  "Returns a map of jepsen test configuration for testing cas"
  [name opts]
  (merge (atomix-test (str "cas register " name))
         {:client    (cas-register-client)
          :model     (model/cas-register)
          :checker   (checker/compose {:html    timeline/html
                                       :linear  checker/linearizable
                                       :latency (checker/latency-graph)})
          :generator (->> gen/cas
                          (gen/delay 1/2)
                          std-gen)}

         opts))

(def cas-bridge-test
  (cas-register-test "bridge"
