penpot/backend/tests/uxbox/tests/test_services_icons.clj

;; This Source Code Form is subject to the terms of the Mozilla Public
;; License, v. 2.0. If a copy of the MPL was not distributed with this
;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
;;
;; This Source Code Form is "Incompatible With Secondary Licenses", as
;; defined by the Mozilla Public License, v. 2.0.
;;
;; Copyright (c) 2020 UXBOX Labs SL

(ns uxbox.tests.test-services-icons
  (:require
   [clojure.java.io :as io]
   [clojure.test :as t]
   [datoteka.core :as fs]
   [uxbox.common.uuid :as uuid]
   [uxbox.db :as db]
   [uxbox.services.mutations :as sm]
   [uxbox.services.queries :as sq]
   [uxbox.tests.helpers :as th]
   [uxbox.util.storage :as ust]))

;; (t/use-fixtures :once th/state-init)
;; (t/use-fixtures :each th/database-reset)
;;
;; (t/deftest icon-libraries-crud
;;   (let [id   (uuid/next)
;;         prof (th/create-profile db/pool 2)
;;         team-id (:default-team-id prof)]
;;
;;     (t/testing "create library"
;;       (let [data {::sm/type :create-icon-library
;;                   :name "sample library"
;;                   :profile-id (:id prof)
;;                   :team-id team-id
;;                   :id id}
;;             out (th/try-on! (sm/handle data))]
;;
;;         ;; (th/print-result! out)
;;         (t/is (nil? (:error out)))
;;
;;         (let [result (:result out)]
;;           (t/is (= id (:id result)))
;;           (t/is (= team-id  (:team-id result)))
;;           (t/is (= (:name data) (:name result))))))
;;
;;     (t/testing "rename library"
;;       (let [data {::sm/type :rename-icon-library
;;                   :name "renamed"
;;                   :profile-id (:id prof)
;;                   :team-id team-id
;;                   :id id}
;;             out (th/try-on! (sm/handle data))]
;;
;;         ;; (th/print-result! out)
;;         (t/is (nil? (:error out)))
;;
;;         (let [result (:result out)]
;;           (t/is (= id (:id result)))
;;           (t/is (= "renamed" (:name result))))))
;;
;;     (t/testing "query libraries"
;;       (let [data {::sq/type :icon-libraries
;;                   :profile-id (:id prof)
;;                   :team-id team-id}
;;             out (th/try-on! (sq/handle data))]
;;
;;         ;; (th/print-result! out)
;;         (t/is (nil? (:error out)))
;;
;;         (let [result (:result out)]
;;           (t/is (= 1 (count result)))
;;           (t/is (= id (get-in result [0 :id])))
;;           (t/is (= "renamed" (get-in result [0 :name]))))))
;;
;;     (t/testing "delete library"
;;       (let [data {::sm/type :delete-icon-library
;;                   :profile-id (:id prof)
;;                   :id id}
;;
;;             out (th/try-on! (sm/handle data))]
;;
;;         ;; (th/print-result! out)
;;         (t/is (nil? (:error out)))
;;         (t/is (nil? (:result out)))))
;;
;;     (t/testing "query libraries after delete"
;;       (let [data {::sq/type :icon-libraries
;;                   :profile-id (:id prof)
;;                   :team-id team-id}
;;             out (th/try-on! (sq/handle data))]
;;
;;         ;; (th/print-result! out)
;;         (t/is (nil? (:error out)))
;;
;;         (let [result (:result out)]
;;           (t/is (= 0 (count result))))))
;;     ))
;;
;; (t/deftest icons-crud
;;   (let [prof    (th/create-profile db/pool 1)
;;         team-id (:default-team-id prof)
;;         coll    (th/create-icon-library db/pool team-id 1)
;;         icon-id (uuid/next)]
;;
;;     (t/testing "upload icon to library"
;;       (let [data {::sm/type :create-icon
;;                   :id icon-id
;;                   :profile-id (:id prof)
;;                   :library-id (:id coll)
;;                   :name "testfile"
;;                   :content "<rect></rect>"
;;                   :metadata {:width 100
;;                              :height 100
;;                              :view-box [0 0 100 100]
;;                              :mimetype "text/svg"}}
;;             out (th/try-on! (sm/handle data))]
;;
;;         ;; (th/print-result! out)
;;         (t/is (nil? (:error out)))
;;
;;         (let [result (:result out)]
;;           (t/is (= (:id data) (:id result)))
;;           (t/is (= (:name data) (:name result)))
;;           (t/is (= (:content data) (:content result))))))
;;
;;     (t/testing "list icons by library"
;;       (let [data {::sq/type :icons
;;                   :profile-id (:id prof)
;;                   :library-id (:id coll)}
;;             out (th/try-on! (sq/handle data))]
;;         ;; (th/print-result! out)
;;
;;         (t/is (= icon-id (get-in out [:result 0 :id])))
;;         (t/is (= "testfile" (get-in out [:result 0 :name])))))
;;
;;     (t/testing "single icon"
;;       (let [data {::sq/type :icon
;;                   :profile-id (:id prof)
;;                   :id icon-id}
;;             out (th/try-on! (sq/handle data))]
;;         ;; (th/print-result! out)
;;
;;         (t/is (= icon-id (get-in out [:result :id])))
;;         (t/is (= "testfile" (get-in out [:result :name])))))
;;
;;     (t/testing "delete icons"
;;       (let [data {::sm/type :delete-icon
;;                   :profile-id (:id prof)
;;                   :id icon-id}
;;             out (th/try-on! (sm/handle data))]
;;
;;         ;; (th/print-result! out)
;;         (t/is (nil? (:error out)))
;;         (t/is (nil? (:result out)))))
;;
;;     (t/testing "query icon after delete"
;;       (let [data {::sq/type :icon
;;                   :profile-id (:id prof)
;;                   :id icon-id}
;;             out (th/try-on! (sq/handle data))]
;;
;;         ;; (th/print-result! out)
;;         (let [error (:error out)]
;;           (t/is (th/ex-info? error))
;;           (t/is (th/ex-of-type? error :service-error)))
;;
;;         (let [error (ex-cause (:error out))]
;;           (t/is (th/ex-info? error))
;;           (t/is (th/ex-of-type? error :not-found)))))
;;
;;     (t/testing "query icons after delete"
;;       (let [data {::sq/type :icons
;;                   :profile-id (:id prof)
;;                   :library-id (:id coll)}
;;             out (th/try-on! (sq/handle data))]
;;
;;         ;; (th/print-result! out)
;;         (let [result (:result out)]
;;           (t/is (= 0 (count result))))))
;;     ))