mirror of
https://github.com/penpot/penpot.git
synced 2025-02-09 16:48:16 -05:00
e9b00339a5
Relevant changes: - ring -> vertx - suricatta -> vertx-pgsql - emails improvements - logging - hybrid sync/async -> full async execution model - database layout refactor
63 lines
2.1 KiB
Clojure
63 lines
2.1 KiB
Clojure
(ns uxbox.tests.test-projects
|
|
(:require
|
|
[clojure.test :as t]
|
|
[promesa.core :as p]
|
|
[uxbox.db :as db]
|
|
[uxbox.http :as http]
|
|
[uxbox.services.core :as sv]
|
|
[uxbox.tests.helpers :as th]))
|
|
|
|
(t/use-fixtures :once th/state-init)
|
|
(t/use-fixtures :each th/database-reset)
|
|
|
|
(t/deftest test-query-project-list
|
|
(let [user @(th/create-user db/pool 1)
|
|
proj @(th/create-project db/pool (:id user) 1)
|
|
data {::sv/type :projects
|
|
:user (:id user)}
|
|
[err rsp] (th/try-on (sv/query data))]
|
|
(t/is (nil? err))
|
|
(t/is (= 1 (count rsp)))
|
|
(t/is (= (:id proj) (get-in rsp [0 :id])))
|
|
(t/is (= (:name proj (get-in rsp [0 :name]))))))
|
|
|
|
(t/deftest test-mutation-create-project
|
|
(let [user @(th/create-user db/pool 1)
|
|
data {::sv/type :create-project
|
|
:user (:id user)
|
|
:name "test project"}
|
|
[err rsp] (th/try-on (sv/mutation data))]
|
|
;; (prn "RESPONSE:" err rsp)
|
|
(t/is (nil? err))
|
|
(t/is (= (:user data) (:user-id rsp)))
|
|
(t/is (= (:name data) (:name rsp)))))
|
|
|
|
(t/deftest test-mutation-update-project
|
|
(let [user @(th/create-user db/pool 1)
|
|
proj @(th/create-project db/pool (:id user) 1)
|
|
data {::sv/type :update-project
|
|
:id (:id proj)
|
|
:name "test project mod"
|
|
:user (:id user)}
|
|
[err rsp] (th/try-on (sv/mutation data))]
|
|
;; (prn "RESPONSE:" err rsp)
|
|
(t/is (nil? err))
|
|
(t/is (= (:id data) (:id rsp)))
|
|
(t/is (= (:user data) (:user-id rsp)))
|
|
(t/is (= (:name data) (:name rsp)))))
|
|
|
|
(t/deftest test-mutation-delete-project
|
|
(let [user @(th/create-user db/pool 1)
|
|
proj @(th/create-project db/pool (:id user) 1)
|
|
data {::sv/type :delete-project
|
|
:id (:id proj)
|
|
:user (:id user)}
|
|
[err rsp] (th/try-on (sv/mutation data))]
|
|
;; (prn "RESPONSE:" err rsp)
|
|
(t/is (nil? err))
|
|
(t/is (nil? rsp))
|
|
|
|
(let [sql "SELECT * FROM projects
|
|
WHERE user_id=$1 AND deleted_at is null"
|
|
res @(db/query db/pool [sql (:id user)])]
|
|
(t/is (empty? res)))))
|