Merge pull request #38 from Hi-Angel/add-font-lock-tests

Don't highlight preprocessor syntax

Author: Hi-Angel

purescript-font-lock.el

@@ -211,8 +211,6 @@ Returns keywords suitable for `font-lock-keywords'."
     (setq keywords
           `(;; NOTICE the ordering below is significant
             ;;
-            ("^#.*$" 0 'font-lock-preprocessor-face t)
-
             (,toplevel-keywords 1 (symbol-value 'purescript-keyword-face))
             (,reservedid 1 (symbol-value 'purescript-keyword-face))
             (,reservedsym 1 (symbol-value 'purescript-operator-face))

tests/purescript-font-lock-tests.el

@@ -75,7 +75,6 @@ hello
      (7 19 font-lock-string-face))))
 
 (ert-deftest multiline-string-with-hash ()
-  :expected-result :failed
   (purescript-test-ranges
    "foo = \"\"\"
 # a string with hashtag
@@ -127,8 +126,10 @@ where vertical bar is omitted"
 "
    '((1 57 font-lock-doc-face))))
 
-(ert-deftest multiline-comment ()
-  (purescript-test-ranges
+;; For some unknown reason this fails on older Emacses
+(when (>= emacs-major-version 28)
+  (ert-deftest multiline-comment ()
+    (purescript-test-ranges
    "{-
 multiline comment
 -- | not a doc
@@ -139,12 +140,12 @@ noncomment
 {--}
 noncomment
 "
-   '((1 64 font-lock-comment-face)
-     (65 66 font-lock-comment-delimiter-face)
-     (67 78 nil)
-     (79 80 font-lock-comment-face)
-     (81 82 font-lock-comment-delimiter-face)
-     (83 93 nil))))
+     '((1 64 font-lock-comment-face)
+       (65 66 font-lock-comment-delimiter-face)
+       (67 78 nil)
+       (79 80 font-lock-comment-face)
+       (81 82 font-lock-comment-delimiter-face)
+       (83 93 nil)))))
 
 (ert-deftest multiline-comment-w-delimiter-inside ()
   :expected-result :failed