Permalink
Browse files

Improve clomert_test

  • Loading branch information...
1 parent cff21e2 commit 0357da6ebf75759ce21f811c8b274f32f312aa84 @afeinberg committed Oct 19, 2010
Showing with 8 additions and 6 deletions.
  1. +8 −6 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"
- (if (nil? v)
- (v/make-versioned "a")
- (v/versioned-set-value!
- (v (str (v/versioned-value v)
- "b"))))))))))
+ (do
+ (v/store-conditional-put scl "foo"
+ (if (nil? v)
+ (v/make-versioned "a")
+ (v/versioned-set-value!
+ (v (str (v/versioned-value v)
+ "b")))))
+ (is (= (v/store-get-value scl "foo") "a"))))))))

0 comments on commit 0357da6

Please sign in to comment.