mirror of
https://github.com/penpot/penpot.git
synced 2025-12-11 22:14:05 +01:00
94719eebf8
This simplifes the mental model on how it works and simplifies testing of the related code. This also normalizes storage object deletion in the same way as the rest of objects in penpot (now future deletion date on storage object also means storage object to be deleted).
245 lines
8.4 KiB
Clojure
245 lines
8.4 KiB
Clojure
;; 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/.
|
|
;;
|
|
;; Copyright (c) KALEIDOS INC
|
|
|
|
(ns backend-tests.rpc-project-test
|
|
(:require
|
|
[app.common.time :as ct]
|
|
[app.common.uuid :as uuid]
|
|
[app.config :as cf]
|
|
[app.db :as db]
|
|
[app.http :as http]
|
|
[app.rpc :as-alias rpc]
|
|
[app.setup.clock :as clock]
|
|
[backend-tests.helpers :as th]
|
|
[clojure.test :as t]))
|
|
|
|
(t/use-fixtures :once th/state-init)
|
|
(t/use-fixtures :each th/database-reset)
|
|
|
|
(t/deftest projects-simple-crud
|
|
(let [profile (th/create-profile* 1)
|
|
team (th/create-team* 1 {:profile-id (:id profile)})
|
|
project-id (uuid/next)]
|
|
|
|
;; create project
|
|
(let [data {::th/type :create-project
|
|
::rpc/profile-id (:id profile)
|
|
:id project-id
|
|
:team-id (:id team)
|
|
:name "test project"}
|
|
out (th/command! data)]
|
|
;; (th/print-result! out)
|
|
|
|
(t/is (nil? (:error out)))
|
|
(let [result (:result out)]
|
|
(t/is (= (:name data) (:name result)))))
|
|
|
|
;; query the list of projects of a team
|
|
(let [data {::th/type :get-projects
|
|
::rpc/profile-id (:id profile)
|
|
:team-id (:id team)}
|
|
out (th/command! data)]
|
|
;; (th/print-result! out)
|
|
|
|
(t/is (nil? (:error out)))
|
|
(let [result (:result out)]
|
|
(t/is (= 2 (count result)))
|
|
(t/is project-id (get-in result [0 :id]))
|
|
(t/is (= "test project" (get-in result [0 :name])))))
|
|
|
|
;; query all projects of a user
|
|
(let [data {::th/type :get-all-projects
|
|
::rpc/profile-id (:id profile)}
|
|
out (th/command! data)]
|
|
;; (th/print-result! out)
|
|
|
|
(t/is (nil? (:error out)))
|
|
(let [result (:result out)]
|
|
(t/is (= 3 (count result)))
|
|
(t/is (not= project-id (get-in result [0 :id])))
|
|
(t/is (= "Drafts" (get-in result [0 :name])))
|
|
(t/is (= "Default" (get-in result [0 :team-name])))
|
|
(t/is (= true (get-in result [0 :is-default-team])))
|
|
(t/is project-id (get-in result [2 :id]))
|
|
(t/is (= "test project" (get-in result [2 :name])))
|
|
(t/is (= "team1" (get-in result [2 :team-name])))
|
|
(t/is (= false (get-in result [2 :is-default-team])))))
|
|
|
|
;; rename project
|
|
(let [data {::th/type :rename-project
|
|
::rpc/profile-id (:id profile)
|
|
:id project-id
|
|
:name "renamed project"}
|
|
out (th/command! data)]
|
|
;; (th/print-result! out)
|
|
(t/is (nil? (:error out)))
|
|
(t/is (nil? (:result out))))
|
|
|
|
;; retrieve project
|
|
(let [data {::th/type :get-project
|
|
::rpc/profile-id (:id profile)
|
|
:id project-id}
|
|
out (th/command! data)]
|
|
;; (th/print-result! out)
|
|
(t/is (nil? (:error out)))
|
|
(let [result (:result out)]
|
|
(t/is (= "renamed project" (:name result)))))
|
|
|
|
;; delete project
|
|
(let [data {::th/type :delete-project
|
|
::rpc/profile-id (:id profile)
|
|
:id project-id}
|
|
out (th/command! data)]
|
|
|
|
;; (th/print-result! out)
|
|
(t/is (nil? (:error out)))
|
|
(t/is (nil? (:result out))))
|
|
|
|
;; query a list of projects after delete
|
|
(let [data {::th/type :get-projects
|
|
::rpc/profile-id (:id profile)
|
|
:team-id (:id team)}
|
|
out (th/command! data)]
|
|
;; (th/print-result! out)
|
|
(t/is (nil? (:error out)))
|
|
(let [result (:result out)]
|
|
(t/is (= 1 (count (remove :deleted-at result))))
|
|
(t/is (= 2 (count result)))))))
|
|
|
|
(t/deftest permissions-checks-create-project
|
|
(let [profile1 (th/create-profile* 1)
|
|
profile2 (th/create-profile* 2)
|
|
|
|
data {::th/type :create-project
|
|
::rpc/profile-id (:id profile2)
|
|
:team-id (:default-team-id profile1)
|
|
:name "test project"}
|
|
out (th/command! data)
|
|
error (:error out)]
|
|
|
|
;; (th/print-result! out)
|
|
(t/is (th/ex-info? error))
|
|
(t/is (th/ex-of-type? error :not-found))))
|
|
|
|
(t/deftest permissions-checks-rename-project
|
|
(let [profile1 (th/create-profile* 1)
|
|
profile2 (th/create-profile* 2)
|
|
project (th/create-project* 1 {:team-id (:default-team-id profile1)
|
|
:profile-id (:id profile1)})
|
|
data {::th/type :rename-project
|
|
::rpc/profile-id (:id profile2)
|
|
:id (:id project)
|
|
:name "foobar"}
|
|
out (th/command! data)
|
|
error (:error out)]
|
|
|
|
;; (th/print-result! out)
|
|
(t/is (th/ex-info? error))
|
|
(t/is (th/ex-of-type? error :not-found))))
|
|
|
|
(t/deftest permissions-checks-delete-project
|
|
(let [profile1 (th/create-profile* 1)
|
|
profile2 (th/create-profile* 2)
|
|
project (th/create-project* 1 {:team-id (:default-team-id profile1)
|
|
:profile-id (:id profile1)})
|
|
data {::th/type :delete-project
|
|
::rpc/profile-id (:id profile2)
|
|
:id (:id project)}
|
|
out (th/command! data)
|
|
error (:error out)]
|
|
|
|
;; (th/print-result! out)
|
|
(t/is (th/ex-info? error))
|
|
(t/is (th/ex-of-type? error :not-found))))
|
|
|
|
(t/deftest permissions-checks-pin-project
|
|
(let [profile1 (th/create-profile* 1)
|
|
profile2 (th/create-profile* 2)
|
|
project (th/create-project* 1 {:team-id (:default-team-id profile1)
|
|
:profile-id (:id profile1)})
|
|
data {::th/type :update-project-pin
|
|
::rpc/profile-id (:id profile2)
|
|
:id (:id project)
|
|
:team-id (:default-team-id profile1)
|
|
:is-pinned true}
|
|
|
|
out (th/command! data)
|
|
error (:error out)]
|
|
|
|
;; (th/print-result! out)
|
|
(t/is (th/ex-info? error))
|
|
(t/is (th/ex-of-type? error :not-found))))
|
|
|
|
|
|
(t/deftest test-deletion
|
|
(let [profile1 (th/create-profile* 1)
|
|
project (th/create-project* 1 {:team-id (:default-team-id profile1)
|
|
:profile-id (:id profile1)})]
|
|
|
|
;; project is not deleted because it does not meet all
|
|
;; conditions to be deleted.
|
|
(let [result (th/run-task! :objects-gc {})]
|
|
(t/is (= 0 (:processed result))))
|
|
|
|
;; query the list of projects
|
|
(let [data {::th/type :get-projects
|
|
::rpc/profile-id (:id profile1)
|
|
:team-id (:default-team-id profile1)}
|
|
out (th/command! data)]
|
|
|
|
;; (th/print-result! out)
|
|
(t/is (nil? (:error out)))
|
|
(let [result (:result out)]
|
|
(t/is (= 2 (count result)))))
|
|
|
|
;; Request project to be deleted
|
|
(let [params {::th/type :delete-project
|
|
::rpc/profile-id (:id profile1)
|
|
:id (:id project)}
|
|
out (th/command! params)]
|
|
(t/is (nil? (:error out))))
|
|
|
|
;; query the list of projects after soft deletion
|
|
(let [data {::th/type :get-projects
|
|
::rpc/profile-id (:id profile1)
|
|
:team-id (:default-team-id profile1)}
|
|
out (th/command! data)]
|
|
;; (th/print-result! out)
|
|
(t/is (nil? (:error out)))
|
|
(let [result (:result out)]
|
|
(t/is (= 2 (count result)))
|
|
(t/is (= 1 (count (remove :deleted-at result))))))
|
|
|
|
;; run permanent deletion (should be noop)
|
|
(let [result (th/run-task! :objects-gc {})]
|
|
(t/is (= 0 (:processed result))))
|
|
|
|
;; query the list of files of a after soft deletion
|
|
(let [data {::th/type :get-project-files
|
|
::rpc/profile-id (:id profile1)
|
|
:project-id (:id project)}
|
|
out (th/command! data)]
|
|
;; (th/print-result! out)
|
|
(t/is (nil? (:error out)))
|
|
(let [result (:result out)]
|
|
(t/is (= 0 (count result)))))
|
|
|
|
;; run permanent deletion
|
|
(binding [ct/*clock* (clock/fixed (ct/in-future {:days 8}))]
|
|
(let [result (th/run-task! :objects-gc {})]
|
|
(t/is (= 1 (:processed result)))))
|
|
|
|
;; query the list of files of a after hard deletion
|
|
(let [data {::th/type :get-project-files
|
|
::rpc/profile-id (:id profile1)
|
|
:project-id (:id project)}
|
|
out (th/command! data)]
|
|
;; (th/print-result! out)
|
|
(let [error (:error out)
|
|
error-data (ex-data error)]
|
|
(t/is (th/ex-info? error))
|
|
(t/is (= (:type error-data) :not-found))))))
|