                                        (-> m :unique-key-tables first)
                                        [ida]
                                        ["foo"]
-                                       (ts/default-timestamp-opt))]
+                                       (ts/default-timestamp-opt))
+            _ (Thread/sleep 1000)
+            dr (fetch-record :unique_key_test_by_nick :nick "foo")]
         (is (= :ok status))
         (is (= {:uber-key (t/uber-key m)
                 :uber-key-value [ida]
                 :key [:nick]
                 :key-value ["foo"]}))
-        (is (= :deleted reason))))
+        (is (= :deleted reason))
+        (is (= nil dr))))
 
     (testing "releasing a non-existing key"
       (let [[status key-desc reason] @(uk/release-unique-key


        [ida idb] [(uuid/v1) (uuid/v1)]

        _ (r/insert tu/*model-session* :unique_key_test {:id ida :nick "foo"})]

    (testing "acquire an uncontended unique-key"
      (let [[status report reason] @(uk/acquire-unique-key


    (testing "update existing record"
      (let [id (uuid/v1)
            _ (tu/insert-record :upsert_primary_without_unique_keys_test
                                {:id id :nick "blah" :a "olda" :b "oldb"})
            r @(uk/upsert-primary-record-without-unique-keys
                tu/*model-session*
                m
