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"})))

;;       )))