           (is (= {:id id :nick "bloogh" :a "newa" :b "newb"}
                  (select-keys fr [:id :nick :a :b])))
           (is (some? (:a_ttl fr)))
-          (is (= (> (:a_ttl fr) 5)))))
+          (is (> (:a_ttl fr) 5))))
 
       (testing "if it doesn't already exist"
         (let [id (uuid/v1)

        (is (= {:id id :nick "blah" :a "newa" :b "oldb"}
               (select-keys fr [:id :nick :a :b])))
        (is (some? (:a_ttl fr)))
        (is (= (> (:a_ttl fr) 5)))
        (is (some? (:a_writetime fr)))
        (is (= (> (:a_writetime fr) 5)))))

    (testing "with if-not-exists"


        (is (= {:uber-key (t/uber-key m)
                :uber-key-value [ida]
                :key [:nick]
                :key-value ["foo"]}
               key-desc))
        (is (= :stale reason))))

    (testing "attempting to release someone else's key"
