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