mirror of
https://github.com/penpot/penpot.git
synced 2025-01-09 08:20:45 -05:00
86 lines
3.6 KiB
Clojure
86 lines
3.6 KiB
Clojure
(ns uxbox.tests.test-projects
|
|
(:require [clojure.test :as t]
|
|
[promesa.core :as p]
|
|
[suricatta.core :as sc]
|
|
[clj-uuid :as uuid]
|
|
[uxbox.db :as db]
|
|
[uxbox.http :as http]
|
|
[uxbox.services.projects :as uspr]
|
|
[uxbox.services.pages :as uspg]
|
|
[uxbox.services :as usv]
|
|
[uxbox.tests.helpers :as th]))
|
|
|
|
(t/use-fixtures :once th/state-init)
|
|
(t/use-fixtures :each th/database-reset)
|
|
|
|
(t/deftest test-http-project-list
|
|
(with-open [conn (db/connection)]
|
|
(let [user (th/create-user conn 1)
|
|
proj (uspr/create-project conn {:user (:id user) :name "proj1"})]
|
|
(th/with-server {:handler @http/app}
|
|
(let [uri (str th/+base-url+ "/api/projects")
|
|
[status data] (th/http-get user uri)]
|
|
(t/is (= 200 status))
|
|
(t/is (= 1 (count data))))))))
|
|
|
|
(t/deftest test-http-project-create
|
|
(with-open [conn (db/connection)]
|
|
(let [user (th/create-user conn 1)]
|
|
(th/with-server {:handler @http/app}
|
|
(let [uri (str th/+base-url+ "/api/projects")
|
|
params {:body {:name "proj1"}}
|
|
[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) "proj1")))))))
|
|
|
|
(t/deftest test-http-project-update
|
|
(with-open [conn (db/connection)]
|
|
(let [user (th/create-user conn 1)
|
|
proj (uspr/create-project conn {:user (:id user) :name "proj1"})]
|
|
(th/with-server {:handler @http/app}
|
|
(let [uri (str th/+base-url+ "/api/projects/" (:id proj))
|
|
params {:body (assoc proj :name "proj2")}
|
|
[status data] (th/http-put user uri params)]
|
|
(prn "RESPONSE:" status data)
|
|
(t/is (= 200 status))
|
|
(t/is (= (:user data) (:id user)))
|
|
(t/is (= (:name data) "proj2")))))))
|
|
|
|
(t/deftest test-http-project-delete
|
|
(with-open [conn (db/connection)]
|
|
(let [user (th/create-user conn 1)
|
|
proj (uspr/create-project conn {:user (:id user) :name "proj1"})]
|
|
(th/with-server {:handler @http/app}
|
|
(let [uri (str th/+base-url+ "/api/projects/" (:id proj))
|
|
[status data] (th/http-delete user uri)]
|
|
(t/is (= 204 status))
|
|
(let [sqlv ["SELECT * FROM projects WHERE \"user\"=? AND deleted_at is null"
|
|
(:id user)]
|
|
result (sc/fetch conn sqlv)]
|
|
(t/is (empty? result))))))))
|
|
|
|
(t/deftest test-http-project-retrieve-by-share-token
|
|
(with-open [conn (db/connection)]
|
|
(let [user (th/create-user conn 1)
|
|
proj (uspr/create-project conn {:user (:id user) :name "proj1"})
|
|
page (uspg/create-page conn {:id (uuid/v4)
|
|
:user (:id user)
|
|
:project (:id proj)
|
|
:version 0
|
|
:data "1"
|
|
:options "2"
|
|
:name "page1"
|
|
:width 200
|
|
:height 200
|
|
:layout "mobil"})
|
|
shares (uspr/get-share-tokens-for-project conn (:id proj))]
|
|
(th/with-server {:handler @http/app}
|
|
(let [token (:token (first shares))
|
|
uri (str th/+base-url+ "/api/projects/by-token/" token)
|
|
[status data] (th/http-get user uri)]
|
|
;; (println "RESPONSE:" status data)
|
|
(t/is (= status 200))
|
|
(t/is (vector? (:pages data)))
|
|
(t/is (= 1 (count (:pages data)))))))))
|