diff options
| author | Protesilaos Stavrou <info@protesilaos.com> | 2026-04-10 15:59:50 +0300 |
|---|---|---|
| committer | Protesilaos Stavrou <info@protesilaos.com> | 2026-04-10 15:59:50 +0300 |
| commit | ec4c79c47200ae74e41d88bc5b4ee54e847b59e5 (patch) | |
| tree | 98626691dcf4fdeece5f8b9881843bb31d3fb019 | |
| parent | 087b419503db4e8e2fc12120af7b4879423347ea (diff) | |
Write test for modus-themes--background-p
| -rw-r--r-- | tests/modus-themes-test.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/tests/modus-themes-test.el b/tests/modus-themes-test.el index 9e6e6c1..668bdf1 100644 --- a/tests/modus-themes-test.el +++ b/tests/modus-themes-test.el @@ -118,6 +118,13 @@ Also see `modus-themes-test--modus-themes--hex-to-rgb'." (should (equal (modus-themes-get-all-known-themes) modus-themes-items)) (should-not (modus-themes-get-all-known-themes 'my-fancy-themes))) +(ert-deftest mtt-modus-themes--background-p () + "Test that `modus-themes--background-p' does the right thing." + (should (modus-themes--background-p 'modus-operandi 'light)) + (should-not (modus-themes--background-p 'modus-operandi 'dark)) + (should-not (modus-themes--background-p 'modus-operandi t)) + (should-not (modus-themes--background-p 'modus-operandi :light))) + (ert-deftest mtt-inheritance () "Ensure all faces inherit from valid faces." ;; Third-party packages, loaded if possible to better test face inheritance. |