diff options
| author | Protesilaos Stavrou <info@protesilaos.com> | 2026-04-10 15:37:29 +0300 |
|---|---|---|
| committer | Protesilaos Stavrou <info@protesilaos.com> | 2026-04-10 15:37:29 +0300 |
| commit | dce91510b3b86a686e8dbc94af9d648247947a1f (patch) | |
| tree | 9d89bc85dc3cfbff017727a06b9c86ccbc05b757 | |
| parent | df74b73a600e203eefd9bfcc5e31f8c5888032e8 (diff) | |
Write test for modus-themes-activate
| -rw-r--r-- | tests/modus-themes-test.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/modus-themes-test.el b/tests/modus-themes-test.el index 7fbeec2..024bca1 100644 --- a/tests/modus-themes-test.el +++ b/tests/modus-themes-test.el @@ -101,6 +101,12 @@ Also see `modus-themes-test--modus-themes--hex-to-rgb'." (should (string= (modus-themes-adjust-value "#505050" 0) "#505050")) (should-error (modus-themes-adjust-value "#ff00" 10))) +(ert-deftest mtt-modus-themes-activate () + "Test that `modus-themes-activate' activates the given theme." + (if (custom-theme-p 'modus-operandi-tritanopia) + (should-not (modus-themes-activate 'modus-operandi-tritanopia)) + (should (custom-theme-p 'modus-operandi-tritanopia)))) + (ert-deftest mtt-inheritance () "Ensure all faces inherit from valid faces." ;; Third-party packages, loaded if possible to better test face inheritance. |