Make the get-projects return deleted projects

And adapt the frontend code to properly filter
deleted projects on appropriate pages
This commit is contained in:
Andrey Antukh
2025-10-22 14:52:11 +02:00
parent 37d4844518
commit 1ddc196484
4 changed files with 35 additions and 29 deletions

View File

@@ -104,7 +104,8 @@
;; (th/print-result! out)
(t/is (nil? (:error out)))
(let [result (:result out)]
(t/is (= 1 (count result)))))))
(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)
@@ -207,7 +208,8 @@
;; (th/print-result! out)
(t/is (nil? (:error out)))
(let [result (:result out)]
(t/is (= 1 (count result)))))
(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 {})]