Improve clomert_test

afeinberg · Oct 19, 2010 · 0357da6 · 0357da6
1 parent cff21e2
commit 0357da6
Showing 1 changed file with 8 additions and 6 deletions.
diff --git a/test/clomert/clomert_test.clj b/test/clomert/clomert_test.clj
@@ -33,9 +33,11 @@
      5 client
      (fn [#^StoreClient scl]
        (let [v (v/store-get scl "foo")]
-         (v/store-conditional-put scl "foo"
+         (do 
-                                  (if (nil? v)
+           (v/store-conditional-put scl "foo"
-                                    (v/make-versioned "a")
+                                    (if (nil? v)
-                                    (v/versioned-set-value!
+                                      (v/make-versioned "a")
-                                     (v (str (v/versioned-value v)
+                                      (v/versioned-set-value!
-                                             "b"))))))))))
+                                       (v (str (v/versioned-value v)
+                                               "b")))))
+           (is (= (v/store-get-value scl "foo") "a"))))))))