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

(ns uxbox.tests.test-icons
  (:require [clojure.test :as t]
            [promesa.core :as p]
            [suricatta.core :as sc]
            [clj-uuid :as uuid]
            [clojure.java.io :as io]
            [catacumba.testing :refer (with-server)]
            [buddy.core.codecs :as codecs]
            [uxbox.db :as db]
            [uxbox.sql :as sql]
            [uxbox.frontend :as uft]
            [uxbox.services.icons :as icons]
            [uxbox.services :as usv]
            [uxbox.tests.helpers :as th]))

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

(t/deftest test-http-list-icon-collections
  (with-open [conn (db/connection)]
    (let [user (th/create-user conn 1)
          data {:user (:id user)
                :name "coll1"}
          coll (icons/create-collection conn data)]
      (with-server {:handler (uft/routes)}
        (let [uri (str th/+base-url+ "/api/library/icon-collections")
              [status data] (th/http-get user uri)]
          ;; (println "RESPONSE:" status data)
          (t/is (= 200 status))
          (t/is (= 1 (count data))))))))

(t/deftest test-http-create-icon-collection
  (with-open [conn (db/connection)]
    (let [user (th/create-user conn 1)]
      (with-server {:handler (uft/routes)}
        (let [uri (str th/+base-url+ "/api/library/icon-collections")
              data {:user (:id user)
                    :name "coll1"}
              params {:body data}
              [status data] (th/http-post user uri params)]
          ;; (println "RESPONSE:" status data)
          (t/is (= 201 status))
          (t/is (= (:user data) (:id user)))
          (t/is (= (:name data) "coll1")))))))

(t/deftest test-http-update-icon-collection
  (with-open [conn (db/connection)]
    (let [user (th/create-user conn 1)
          data {:user (:id user)
                :name "coll1"}
          coll (icons/create-collection conn data)]
      (with-server {:handler (uft/routes)}
        (let [uri (str th/+base-url+ "/api/library/icon-collections/" (:id coll))
              params {:body (assoc coll :name "coll2")}
              [status data] (th/http-put user uri params)]
          ;; (println "RESPONSE:" status data)
          (t/is (= 200 status))
          (t/is (= (:user data) (:id user)))
          (t/is (= (:name data) "coll2")))))))

(t/deftest test-http-icon-collection-delete
  (with-open [conn (db/connection)]
    (let [user (th/create-user conn 1)
          data {:user (:id user)
                :name "coll1"
                :data #{1}}
          coll (icons/create-collection conn data)]
      (with-server {:handler (uft/routes)}
        (let [uri (str th/+base-url+ "/api/library/icon-collections/" (:id coll))
              [status data] (th/http-delete user uri)]
          (t/is (= 204 status))
          (let [sqlv (sql/get-icon-collections {:user (:id user)})
                result (sc/fetch conn sqlv)]
            (t/is (empty? result))))))))

(t/deftest test-http-create-icon
  (with-open [conn (db/connection)]
    (let [user (th/create-user conn 1)]
      (with-server {:handler (uft/routes)}
        (let [uri (str th/+base-url+ "/api/library/icons")
              data {:name "sample.jpg"
                    :content "<g></g>"
                    :metadata {:width 200
                               :height 200
                               :view-box [0 0 200 200]}
                    :collection nil}
              params {:body data}
              [status data] (th/http-post user uri params)]
          ;; (println "RESPONSE:" status data)
          (t/is (= 201 status))
          (t/is (= (:user data) (:id user)))
          (t/is (= (:name data) "sample.jpg"))
          (t/is (= (:metadata data) {:width 200
                                     :height 200
                                     :view-box [0 0 200 200]})))))))

(t/deftest test-http-update-icon
  (with-open [conn (db/connection)]
    (let [user (th/create-user conn 1)
          data {:user (:id user)
                :name "test.svg"
                :content "<g></g>"
                :metadata {}
                :collection nil}
          icon (icons/create-icon conn data)]
      (with-server {:handler (uft/routes)}
        (let [uri (str th/+base-url+ "/api/library/icons/" (:id icon))
              params {:body (assoc icon :name "my stuff")}
              [status data] (th/http-put user uri params)]
          ;; (println "RESPONSE:" status data)
          (t/is (= 200 status))
          (t/is (= (:user data) (:id user)))
          (t/is (= (:name data) "my stuff")))))))

(t/deftest test-http-copy-icon
  (with-open [conn (db/connection)]
    (let [user (th/create-user conn 1)
          data {:user (:id user)
                :name "test.svg"
                :content "<g></g>"
                :metadata {}
                :collection nil}
          icon (icons/create-icon conn data)]
      (with-server {:handler (uft/routes)}
        (let [uri (str th/+base-url+ "/api/library/icons/copy")
              body {:id (:id icon) :collection nil}
              params {:body body}
              [status data] (th/http-put user uri params)]
          (println "RESPONSE:" status data)
          (let [sqlv (sql/get-icons {:user (:id user) :collection nil})
                result (sc/fetch conn sqlv)]
            (t/is (= 2 (count result)))))))))

(t/deftest test-http-delete-icon
  (with-open [conn (db/connection)]
    (let [user (th/create-user conn 1)
          data {:user (:id user)
                :name "test.svg"
                :content "<g></g>"
                :metadata {}
                :collection nil}
          icon (icons/create-icon conn data)]
      (with-server {:handler (uft/routes)}
        (let [uri (str th/+base-url+ "/api/library/icons/" (:id icon))
              [status data] (th/http-delete user uri)]
          (t/is (= 204 status))
          (let [sqlv (sql/get-icons {:user (:id user) :collection nil})
                result (sc/fetch conn sqlv)]
            (t/is (empty? result))))))))

;; (t/deftest test-http-list-icons
;;   (with-open [conn (db/connection)]
;;     (let [user (th/create-user conn 1)
;;           data {:user (:id user)
;;                 :name "test.png"
;;                 :path "some/path"
;;                 :collection nil}
;;           icon (icons/create-icon conn data)]
;;       (with-server {:handler (uft/routes)}
;;         (let [uri (str th/+base-url+ "/api/library/icons")
;;               [status data] (th/http-get user uri)]
;;           (println "RESPONSE:" status data)
;;           (t/is (= 200 status))
;;           (t/is (= 1 (count data))))))))