 
 (defn cas-register-client
   "A basic CAS register client."
-  [nodes]
-  (CasRegisterClient. nil nil nodes))
+  []
+  (CasRegisterClient. nil nil))
 
 ; Generators
 

(defn start!
  "Starts atomix."
  [node test]
  (let [nodes (into #{} (:nodes test))
        other-nodes (clojure.set/difference nodes (set [node]))
        local-node-arg "5555"
        other-node-args (doall (map #(str (name %) ":5555")


; Test clients

(def setup-lock (Object.))

(defrecord CasRegisterClient [client register]
  client/Client
  (setup! [this test node]
    ; One client connection at a time
    (locking setup-lock
      (let [node-set (map #(hash-map :host (name %)
                                     :port 5555)
                          (:nodes test))]
        (cutil/try-until-success
          #(do
            (info "Creating client connections to" node-set)
            (let [atomix-client (trinity/client node-set)
                  _ (debug node "Client connected!")
                  test-name (:name test)
                  register (trinity/dist-atom atomix-client test-name)]
              (debug node "Created atomix resource" test-name)
              (assoc this :client atomix-client
                          :register register)))
          #(do
            (debug node "Connection attempt failed. Retrying..." %)
            (Thread/sleep 2000))))))

  (invoke! [this test op]
    (try
