rewrite of put-get-json-default

gistfile1.clj

;; original

(deftest put-get-json-default
  (let [obj {:value [1 "2" '(3)]}
        put-ret (client/put c "test-bucket" "test-key" obj)
        get-ret (client/get c "test-bucket" "test-key")]
    (is (= (:value obj)
           (:value (first get-ret))))))

;; my Midje version

(defn save+retrieve [obj]
  (client/put c "test-bucket" "test-key" obj)
  (client/get c "test-bucket" "test-key"))

(fact "can save and retrieve, with JSON as the default"
  (save+retrieve {:value [1 "2" '(3)]}) => (one-of {:value [1 "2" '(3)]} ))

;; my clojure.test rewrite

(defn save+retrieve [obj]
  (client/put c "test-bucket" "test-key" obj)
  (client/get c "test-bucket" "test-key"))

(deftest put-get-json-default
  (is (= {:value [1 "2" '(3)]} 
         (first (save+retrieve {:value [1 "2" '(3)]} )))))