[nongnu] elpa/nix-mode 407051ad31 175/500: Add font-lock-tests.el file

[ELPA Syncer]

branch: elpa/nix-mode
commit 407051ad3183418b75e3581b105f5bc786cac114
Author: Matthew Bauer <mjbauer95@gmail.com>
Commit: Matthew Bauer <mjbauer95@gmail.com>

    Add font-lock-tests.el file
    
    Based on Haskell’s font-lock-tests file.
---
 tests/nix-font-lock-tests.el | 80 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 80 insertions(+)

diff --git a/tests/nix-font-lock-tests.el b/tests/nix-font-lock-tests.el
new file mode 100644
index 0000000000..1ec0008b6a
--- /dev/null
+++ b/tests/nix-font-lock-tests.el
@@ -0,0 +1,80 @@
+;;  -*- lexical-binding: t -*-
+(require 'ert)
+(require 'nix-mode)
+
+(defun check-syntax-and-face-match-range (beg end syntax face)
+  "Check if all charaters between positions BEG and END have
+syntax set to SYNTAX and face set to FACE.
+If SYNTAX or FACE are set to t then any syntex respective face is
+not checked."
+  (let (all-syntaxes
+        all-faces
+        (syntax-classes "-.w_()'\"$\\/<>@!|")
+        (text (buffer-substring-no-properties beg end)))
+    (while (< beg end)
+      (cl-pushnew (char-to-string (aref syntax-classes (syntax-class 
(syntax-after beg)))) all-syntaxes :test #'equal)
+      (cl-pushnew (get-text-property beg 'face) all-faces :test #'equal)
+      (setq beg (1+ beg)))
+    (unless (eq syntax t)
+      (should (equal (list text (mapconcat #'identity (sort (mapcar (lambda 
(syn) (char-to-string syn)) syntax) #'string<) ""))
+                     (list text (mapconcat #'identity (sort all-syntaxes 
#'string<) "")))))
+    (unless (eq face t)
+      (should (equal (list text (list face))
+                     (list text all-faces))))))
+
+(defmacro with-nix-test-buffer (mode &rest body)
+  "Run BODY in the context of a new buffer set to `nix-mode'.
+Buffer is named *nix-mode-buffer*. It is not deleted
+after a test as this aids interactive debugging."
+  (declare (indent 1) (debug t))
+  `(progn
+     ;; we want to create buffer from scratch so that there are no
+     ;; leftover state from the previous test
+     (when (get-buffer "*nix-test-buffer*")
+       (kill-buffer "*nix-test-buffer*"))
+     (save-current-buffer
+       (set-buffer (get-buffer-create "*nix-test-buffer*"))
+       (funcall ,mode)
+       ,@body)))
+
+(defun check-properties (lines-or-contents props &optional mode)
+  "Check if syntax properties and font-lock properties as set properly.
+LINES is a list of strings that will be inserted to a new
+buffer. Then PROPS is a list of tripples of (string syntax
+face). String is searched for in the buffer and then is checked
+if all of its characters have syntax and face. See
+`check-syntax-and-face-match-range`."
+  (with-nix-test-buffer (or mode #'nix-mode)
+                        (if (consp lines-or-contents)
+                            (dolist (line lines-or-contents)
+                              (let ((pos (point)))
+                                (insert line "\n")
+                                (save-excursion
+                                  ;; For some reason font-lock-fontify-region 
moves the
+                                  ;; point. I do not think it is guaranteed it 
should not,
+                                  ;; but then it might be our fault. 
Investigate later.
+                                  (font-lock-fontify-region pos (point)))))
+                          (insert lines-or-contents)
+                          (font-lock-fontify-buffer))
+
+                        (goto-char (point-min))
+                        (dolist (prop props)
+                          (cl-destructuring-bind (string syntax face) prop
+                            (let ((case-fold-search nil))
+                              (search-forward string))
+                            (check-syntax-and-face-match-range 
(match-beginning 0) (match-end 0) syntax face)))))
+
+
+(ert-deftest nix-equals-1 ()
+  (check-properties
+   '("pattern = 3")
+   '(("pattern" t nix-attribute-face))))
+
+(ert-deftest nix-equals-2 ()
+  (check-properties
+   '("pattern == 3")
+   '(("pattern" t nil))))
+
+;; Local Variables:
+;; flycheck-disabled-checkers: (emacs-lisp-checkdoc)
+;; End: