From 087b419503db4e8e2fc12120af7b4879423347ea Mon Sep 17 00:00:00 2001 From: Protesilaos Stavrou Date: Fri, 10 Apr 2026 15:57:36 +0300 Subject: Write a test for modus-themes--belongs-to-family-p --- tests/modus-themes-test.el | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/tests/modus-themes-test.el b/tests/modus-themes-test.el index cec3c3d..9e6e6c1 100644 --- a/tests/modus-themes-test.el +++ b/tests/modus-themes-test.el @@ -113,6 +113,11 @@ Also see `modus-themes-test--modus-themes--hex-to-rgb'." (should-not (modus-themes--belongs-to-family-p 'my-fancy-theme 'modus-themes)) (should-not (modus-themes--belongs-to-family-p 'modus-operandi 'my-fancy-themes))) +(ert-deftest mtt-modus-themes-get-all-known-themes () + "Test that `modus-themes-get-all-known-themes' does the right thing." + (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-inheritance () "Ensure all faces inherit from valid faces." ;; Third-party packages, loaded if possible to better test face inheritance. -- cgit v1.0