penpot/backend/test/uxbox/tests/test_kvstore.clj

(ns uxbox.tests.test-kvstore
  (:require [clojure.test :as t]
            [promesa.core :as p]
            [suricatta.core :as sc]
            [catacumba.testing :refer (with-server)]
            [buddy.core.codecs :as codecs]
            [uxbox.db :as db]
            [uxbox.util.uuid :as uuid]
            [uxbox.frontend :as uft]
            [uxbox.services.kvstore :as kvs]
            [uxbox.tests.helpers :as th]))

(t/use-fixtures :each th/database-reset)

(t/deftest test-http-kvstore
  (with-open [conn (db/connection)]
    (let [{:keys [id] :as user} (th/create-user conn 1)]

      ;; Not exists at this moment
      (t/is (nil? (kvs/retrieve-kvstore conn {:user id :key "foo" :version -1})))

      ;; Creating new one should work as expected
      (with-server {:handler (uft/routes)}
        (let [uri (str th/+base-url+ "/api/kvstore")
              body {:key "foo" :value "bar" :version -1}
              params {:body body}
              [status data] (th/http-put user uri params)]
          (println "RESPONSE:" status data)
          (t/is (= 200 status))
          (t/is (= (:key data) "foo"))
          (t/is (= (:value data) "bar"))))

      ;; Should exists
      (let [data (kvs/retrieve-kvstore conn {:user id :key "foo"})]
        (t/is (= (:key data) "foo"))
        (t/is (= (:value data) "bar"))

        ;; Overwriting should work
        (with-server {:handler (uft/routes)}
          (let [uri (str th/+base-url+ "/api/kvstore")
                body (assoc data :key "foo" :value "baz")
                params {:body body}
                [status data] (th/http-put user uri params)]
            (println "RESPONSE:" status data)
            (t/is (= 200 status))
            (t/is (= (:key data) "foo"))
            (t/is (= (:value data) "baz")))))

      ;; Should exists and match the overwritten value
      (let [data (kvs/retrieve-kvstore conn {:user id :key "foo"})]
        (t/is (= (:key data) "foo"))
        (t/is (= (:value data) "baz")))

      ;; Delete should work
      (with-server {:handler (uft/routes)}
        (let [uri (str th/+base-url+ "/api/kvstore/foo")
              [status data] (th/http-delete user uri)]
          (println "RESPONSE:" status data)
          (t/is (= 204 status))))

      ;; Not exists at this moment
      (t/is (nil? (kvs/retrieve-kvstore conn {:user id :key "foo"})))

      )))