From d32c75089f4a6baf5fab7aba93d718ab91629a84 Mon Sep 17 00:00:00 2001 From: Thomas Winant Date: Wed, 13 Jan 2016 14:16:52 +0100 Subject: [PATCH] Add test for 'type role' font-lock --- tests/haskell-font-lock-tests.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/tests/haskell-font-lock-tests.el b/tests/haskell-font-lock-tests.el index ccfd64075..6bb43c599 100644 --- a/tests/haskell-font-lock-tests.el +++ b/tests/haskell-font-lock-tests.el @@ -554,3 +554,11 @@ if all of its characters have syntax and face. See ("code3" t haskell-definition-face) ("Comment3" t haskell-literate-comment-face)) 'literate)) + +(ert-deftest haskell-type-role () + "fontify \"role\" after \"type\"" + (check-properties + '("type role Ptr representational") + '(("type" "w" haskell-keyword-face) + ("role" "w" haskell-keyword-face) + ("Ptr" "w" haskell-constructor-face))))