3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-06-02 02:32:28 +02:00
Code Issues Projects Releases Packages Wiki Activity

✨ Complete backend behavior when duplicate and move

Browse source
This commit is contained in:
Andrey Antukh 2021-03-02 21:13:19 +01:00 • committed by Andrés Moya
parent 044f1f63c0
commit 6a345c4b8a
11 changed files with 269 additions and 299 deletions
Download patch file Download diff file Expand all files Collapse all files

57
backend/tests/app/tests/helpers.clj
View file

@ -154,12 +154,10 @@
team (#'teams/create-team conn {:id id
:profile-id profile-id
:name (str "team" i)})]
(#'teams/create-team-profile conn
{:team-id id
:profile-id profile-id
:is-owner true
:is-admin true
:can-edit true})
(#'teams/create-team-role conn
{:team-id id
:profile-id profile-id
:role :owner})
team)))
@ -198,37 +196,26 @@
:created-at (or created-at (dt/now))
:content (db/tjson {})}))
(defn create-team-role*
([params] (create-team-role* *pool* params))
([conn {:keys [team-id profile-id role] :or {role :owner}}]
(#'teams/create-team-role conn {:team-id team-id
:profile-id profile-id
:role role})))
(defn create-team-permission*
([params] (create-team-permission* *pool* params))
([conn {:keys [team-id profile-id is-owner is-admin can-edit]
:or {is-owner true is-admin true can-edit true}}]
(db/insert! conn :team-profile-rel {:team-id team-id
:profile-id profile-id
:is-owner is-owner
:is-admin is-admin
:can-edit can-edit})))
(defn create-project-permission*
([params] (create-project-permission* *pool* params))
([conn {:keys [project-id profile-id is-owner is-admin can-edit]
:or {is-owner true is-admin true can-edit true}}]
(db/insert! conn :project-profile-rel {:project-id project-id
:profile-id profile-id
:is-owner is-owner
:is-admin is-admin
:can-edit can-edit})))
(defn create-file-permission*
([params] (create-file-permission* *pool* params))
([conn {:keys [file-id profile-id is-owner is-admin can-edit]
:or {is-owner true is-admin true can-edit true}}]
(db/insert! conn :project-profile-rel {:file-id file-id
:profile-id profile-id
:is-owner is-owner
:is-admin is-admin
:can-edit can-edit})))
(defn create-project-role*
([params] (create-project-role* *pool* params))
([conn {:keys [project-id profile-id role] :or {role :owner}}]
(#'projects/create-project-role conn {:project-id project-id
:profile-id profile-id
:role role})))
(defn create-file-role*
([params] (create-file-role* *pool* params))
([conn {:keys [file-id profile-id role] :or {role :owner}}]
(#'files/create-file-role conn {:file-id file-id
:profile-id profile-id
:role role})))
(defn update-file*
([params] (update-file* *pool* params))

8
backend/tests/app/tests/test_services_management.clj
View file

@ -50,7 +50,7 @@
(let [data {::th/type :duplicate-file
:profile-id (:id profile)
:file-id (:id file1)
:new-name "file 1 (copy)"}
:name "file 1 (copy)"}
out (th/mutation! data)]
;; (th/print-result! out)
@ -122,7 +122,7 @@
(let [data {::th/type :duplicate-project
:profile-id (:id profile)
:project-id (:id project)
:new-name "project 1 (copy)"}
:name "project 1 (copy)"}
out (th/mutation! data)]
;; Check tha tresult is correct
@ -157,8 +157,8 @@
(:data fb)))))
(when (= (:id fa) (:id file2))
(t/is (true? (b/equals? (:data fa)
(:data fb))))))
(t/is (false? (b/equals? (:data fa)
(:data fb))))))
)))))

16
backend/tests/app/tests/test_services_projects.clj
View file

@ -50,7 +50,21 @@
(t/is project-id (get-in result [0 :id]))
(t/is (= "test project" (get-in result [0 :name])))))
;; rename project"
;; query all projects of a user
(let [data {::th/type :all-projects
:profile-id (:id profile)}
out (th/query! data)]
;; (th/print-result! out)
(t/is (nil? (:error out)))
(let [result (:result out)]
(t/is (= 2 (count result)))
(t/is (not= project-id (get-in result [0 :id])))
(t/is (= "Drafts" (get-in result [0 :name])))
(t/is project-id (get-in result [1 :id]))
(t/is (= "test project" (get-in result [1 :name])))))
;; rename project
(let [data {::th/type :rename-project
:id project-id
:name "renamed project"