github/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-07-30 01:46:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

wip

Browse Source
This commit is contained in:
Andrés Moya 2026-06-17 10:44:02 +02:00
parent d446f00d80
commit 27f90704f1
2 changed files with 60 additions and 60 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

114
common/test/common_tests/types/token_status_test.cljc
View File

@ -76,63 +76,63 @@
(t/is (ctos/set-active? token-status (thi/id :set-a)))
(t/is (ctos/set-active? token-status (thi/id :set-b)))))
(t/deftest activate-theme
(let [theme-id (uuid/next)
tokens-lib (-> (ctob/make-tokens-lib)
(ctob/add-theme (ctob/make-token-theme :id theme-id :name "theme")))
status (ctos/make-token-status)
status' (ctos/activate-theme status tokens-lib theme-id)]
(t/is (not (ctos/theme-active? status theme-id)))
(t/is (ctos/theme-active? status' theme-id))
(t/is (= (ctos/active-themes-count status') 1))))
(t/deftest deactivate-theme
(let [theme-id (uuid/next)
tokens-lib (-> (ctob/make-tokens-lib)
(ctob/add-theme (ctob/make-token-theme :id theme-id :name "theme")))
status (ctos/make-token-status :active-theme-ids #{theme-id})
status' (ctos/deactivate-theme status tokens-lib theme-id)]
(t/is (ctos/theme-active? status theme-id))
(t/is (not (ctos/theme-active? status' theme-id)))
(t/is (= (ctos/active-themes-count status') 0))))
(t/deftest set-theme-status
(let [theme-id (uuid/next)
tokens-lib (-> (ctob/make-tokens-lib)
(ctob/add-theme (ctob/make-token-theme :id theme-id :name "theme")))
status (ctos/make-token-status)
status' (ctos/set-theme-status status tokens-lib theme-id true)
status'' (ctos/set-theme-status status' tokens-lib theme-id false)]
(t/is (ctos/theme-active? status' theme-id))
(t/is (not (ctos/theme-active? status'' theme-id)))
(t/is (= (ctos/active-themes-count status') 1))
(t/is (= (ctos/active-themes-count status'') 0))))
(t/deftest activate-set
(let [set-id (uuid/next)
status (ctos/make-token-status)
status' (ctos/activate-set status set-id)]
(t/is (not (ctos/set-active? status set-id)))
(t/is (ctos/set-active? status' set-id))
(t/is (= (ctos/active-set-count status') 1))))
(t/deftest deactivate-set
(let [set-id (uuid/next)
status (ctos/make-token-status :active-set-ids #{set-id})
status' (ctos/deactivate-set status set-id)]
(t/is (ctos/set-active? status set-id))
(t/is (not (ctos/set-active? status' set-id)))
(t/is (= (ctos/active-set-count status') 0))))
(t/deftest toggle-set-active
(let [set-id (uuid/next)
status (ctos/make-token-status)
status' (ctos/toggle-set-active status set-id)
status'' (ctos/toggle-set-active status' set-id)]
(t/is (ctos/set-active? status' set-id))
(t/is (not (ctos/set-active? status'' set-id)))
(t/is (= (ctos/active-set-count status') 1))
(t/is (= (ctos/active-set-count status'') 0))))
;; (t/deftest activate-theme
;; (let [theme-id (uuid/next)
;; tokens-lib (-> (ctob/make-tokens-lib)
;; (ctob/add-theme (ctob/make-token-theme :id theme-id :name "theme")))
;; status (ctos/make-token-status)
;; status' (ctos/activate-theme status tokens-lib theme-id)]
;; (t/is (not (ctos/theme-active? status theme-id)))
;; (t/is (ctos/theme-active? status' theme-id))
;; (t/is (= (ctos/active-themes-count status') 1))))
;;
;; (t/deftest deactivate-theme
;; (let [theme-id (uuid/next)
;; tokens-lib (-> (ctob/make-tokens-lib)
;; (ctob/add-theme (ctob/make-token-theme :id theme-id :name "theme")))
;; status (ctos/make-token-status :active-theme-ids #{theme-id})
;; status' (ctos/deactivate-theme status tokens-lib theme-id)]
;; (t/is (ctos/theme-active? status theme-id))
;; (t/is (not (ctos/theme-active? status' theme-id)))
;; (t/is (= (ctos/active-themes-count status') 0))))
;;
;; (t/deftest set-theme-status
;; (let [theme-id (uuid/next)
;; tokens-lib (-> (ctob/make-tokens-lib)
;; (ctob/add-theme (ctob/make-token-theme :id theme-id :name "theme")))
;; status (ctos/make-token-status)
;; status' (ctos/set-theme-status status tokens-lib theme-id true)
;; status'' (ctos/set-theme-status status' tokens-lib theme-id false)]
;; (t/is (ctos/theme-active? status' theme-id))
;; (t/is (not (ctos/theme-active? status'' theme-id)))
;; (t/is (= (ctos/active-themes-count status') 1))
;; (t/is (= (ctos/active-themes-count status'') 0))))
;;
;; (t/deftest activate-set
;; (let [set-id (uuid/next)
;; status (ctos/make-token-status)
;; status' (ctos/activate-set status set-id)]
;; (t/is (not (ctos/set-active? status set-id)))
;; (t/is (ctos/set-active? status' set-id))
;; (t/is (= (ctos/active-set-count status') 1))))
;;
;; (t/deftest deactivate-set
;; (let [set-id (uuid/next)
;; status (ctos/make-token-status :active-set-ids #{set-id})
;; status' (ctos/deactivate-set status set-id)]
;; (t/is (ctos/set-active? status set-id))
;; (t/is (not (ctos/set-active? status' set-id)))
;; (t/is (= (ctos/active-set-count status') 0))))
;;
;; (t/deftest toggle-set-active
;; (let [set-id (uuid/next)
;; status (ctos/make-token-status)
;; status' (ctos/toggle-set-active status set-id)
;; status'' (ctos/toggle-set-active status' set-id)]
;; (t/is (ctos/set-active? status' set-id))
;; (t/is (not (ctos/set-active? status'' set-id)))
;; (t/is (= (ctos/active-set-count status') 1))
;; (t/is (= (ctos/active-set-count status'') 0))))
(t/deftest datafy-token-status
(let [theme-id (uuid/next)

6
common/test/common_tests/types/tokens_lib_test.cljc
View File

@ -250,9 +250,9 @@
(t/deftest get-theme-path
(let [theme1 (ctob/make-token-theme :name "theme1")
theme2 (ctob/make-token-theme :group "group1" :name "theme2")]
(t/is (= "/theme1" (ctob/get-theme-path theme1))) ;; TODO perhaps we should remove the leading /
(t/is (= "/theme1" (ctob/get-theme-path theme1 false))) ;; but this may be a breaking change
(t/is (= " / theme1" (ctob/get-theme-path theme1 true)))
(t/is (= "/theme1" (ctob/get-theme-path theme1)))
(t/is (= "/theme1" (ctob/get-theme-path theme1 false)))
(t/is (= "theme1" (ctob/get-theme-path theme1 true)))
(t/is (= "group1/theme2" (ctob/get-theme-path theme2)))
(t/is (= "group1/theme2" (ctob/get-theme-path theme2 false)))
(t/is (= "group1 / theme2" (ctob/get-theme-path theme2 true)))))