branch: elpa/swift-mode
commit 02a17262276cb93d0939b24e73afff10e8b01347
Author: Daniel Martín <mardan...@yahoo.es>
Commit: taku0 <ta...@users.noreply.github.com>
Introduce some font-lock tests
For now, they are only focused on swift-mode:negation-char-face.
---
test/swift-files/font-lock/font-lock.swift | 51 +++++++++++++++
test/swift-mode-test-font-lock.el | 102 +++++++++++++++++++++++++++++
test/swift-mode-test.el | 4 +-
3 files changed, 156 insertions(+), 1 deletion(-)
diff --git a/test/swift-files/font-lock/font-lock.swift
b/test/swift-files/font-lock/font-lock.swift
new file mode 100644
index 0000000..8669dd4
--- /dev/null
+++ b/test/swift-files/font-lock/font-lock.swift
@@ -0,0 +1,51 @@
+//
+// Negation characters.
+//
+
+//
+// These "!" should be identified as negation chars.
+//
+
+if !foo {} // #("if !foo {}" 0 2 (face swift-mode:keyword-face) 3 4 (face
swift-mode:negation-char-face))
+
+if !!!!!foo {} // #("if !!!!!foo {}" 0 2 (face swift-mode:keyword-face) 3 8
(face swift-mode:negation-char-face))
+
+if !!!!!(foo) {} // #("if !!!!!(foo) {}" 0 2 (face swift-mode:keyword-face) 3
8 (face swift-mode:negation-char-face))
+
+if (!foo) {} // #("if (!foo) {}" 0 2 (face swift-mode:keyword-face) 4 5 (face
swift-mode:negation-char-face))
+
+let x = [!a,!b] // #("let x = [!a,!b]" 0 3 (face swift-mode:keyword-face) 9 10
(face swift-mode:negation-char-face) 12 13 (face swift-mode:negation-char-face))
+
+let x = [a:!b] // #("let x = [a:!b]" 0 3 (face swift-mode:keyword-face) 11 12
(face swift-mode:negation-char-face))
+
+//
+// These "!" should NOT be identified as negation chars.
+//
+
+try! foo // #("try! foo" 0 3 (face swift-mode:keyword-face))
+
+foo as! Foo // #("foo as! Foo" 4 6 (face swift-mode:keyword-face))
+
+foo != bar // "foo != bar"
+
+foo !== bar // "foo !== bar"
+
+a.b.c! // #("a.b.c!" 4 5 (face swift-mode:property-access-face))
+
+a.b.c_! // #("a.b.c_!" 4 5 (face swift-mode:property-access-face))
+
+a.b.aあ! // #("a.b.a\343\201\202!" 4 8 (face swift-mode:property-access-face))
+
+init! {} // #("init! {}" 0 4 (face swift-mode:keyword-face))
+
+let foo: Foo! = bar // #("let foo: Foo! = bar" 0 3 (face
swift-mode:keyword-face))
+
+let x = foo()! // #("let x = foo()!" 0 3 (face swift-mode:keyword-face) 8 11
(face swift-mode:function-call-face))
+
+let x = foo[0]! // #("let x = foo[0]!" 0 3 (face swift-mode:keyword-face))
+
+// Identifiers can be quoted.
+a.b.`c`! // #("a.b.`c`!" 4 7 (face font-lock-string-face))
+
+// Custom operators.
+foo +!+!+!+!+ bbb // "foo +!+!+!+!+ bbb"
diff --git a/test/swift-mode-test-font-lock.el
b/test/swift-mode-test-font-lock.el
new file mode 100644
index 0000000..8780907
--- /dev/null
+++ b/test/swift-mode-test-font-lock.el
@@ -0,0 +1,102 @@
+;;; swift-mode-test-font-lock.el --- Test for swift-mode: font-lock -*-
lexical-binding: t -*-
+
+;; Copyright (C) 2020 Daniel Martín
+
+;; Authors: Daniel Martín (http://github.com/taku0)
+
+;; This file is not part of GNU Emacs.
+
+;; This program is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; Test for swift-mode: font-lock.
+;; Execute swift-mode:run-test:font-lock interactively or in batch mode.
+
+;;; Code:
+
+(require 'swift-mode)
+(require 'swift-mode-font-lock)
+
+(defun swift-mode:run-test:font-lock
+ (&optional error-buffer error-counts progress-reporter)
+ "Run font-lock test for `swift-mode'.
+
+ERROR-BUFFER is the buffer to output errors.
+ERROR-COUNTS is a association list holding counts of errors. Updated
+destructively.
+PROGRESS-REPORTER is the progress-reporter."
+ (interactive)
+ (if (not swift-mode:test:running)
+ (swift-mode:run-test '(swift-mode:run-test:font-lock))
+ (let ((current-line 0))
+ (setq default-directory
+ (concat (file-name-as-directory swift-mode:test:basedir)
+ (file-name-as-directory "swift-files")
+ "font-lock"))
+
+ (dolist (swift-file (file-expand-wildcards "*.swift"))
+ (redisplay)
+ (with-temp-buffer
+ (switch-to-buffer (current-buffer))
+ (insert-file-contents-literally swift-file)
+ (swift-mode)
+ (font-lock-fontify-buffer)
+ (setq current-line 0)
+ (while (not (eobp))
+ (when (not noninteractive)
+ (progress-reporter-update progress-reporter))
+ (setq current-line (1+ current-line))
+ (cond
+ ((= (line-beginning-position) (line-end-position))
+ ;; Empty line
+ nil)
+ ((looking-at-p "//.*")
+ ;; Ignore comments
+ nil)
+ (t
+ (let*
+ ((status (swift-mode:test-current-line-font-lock
+ swift-file current-line error-buffer))
+ (count-assoc (assq status error-counts)))
+ (setcdr count-assoc (1+ (cdr count-assoc))))))
+ (forward-line)))))))
+
+(defun swift-mode:test-current-line-font-lock
+ (swift-file current-line error-buffer)
+ "Compute the font-lock properties applied by swift-mode on current line.
+
+SWIFT-FILE is the filename of the current test case.
+CURRENT-LINE is the current line number.
+ERROR-BUFFER is the buffer to output errors."
+ (let ((status 'ok))
+ (when (looking-at "\\(.*\\)[ /t]+//[ /t]+\\(.*\\)")
+ (let ((actual-props (format "%S" (buffer-substring (match-beginning 1)
(match-end 1))))
+ (expected-props (buffer-substring-no-properties (match-beginning 2)
+ (match-end 2))))
+ (when (not (string-equal expected-props actual-props))
+ (setq status 'error)
+ (swift-mode:show-error
+ error-buffer swift-file current-line
+ "error"
+ (concat
+ "font-lock: expected "
+ (prin1-to-string expected-props)
+ " but "
+ (prin1-to-string actual-props))))))
+ status))
+
+(provide 'swift-mode-test-font-lock)
+
+;;; swift-mode-test-font-lock.el ends here
diff --git a/test/swift-mode-test.el b/test/swift-mode-test.el
index e2c4508..3f56d94 100644
--- a/test/swift-mode-test.el
+++ b/test/swift-mode-test.el
@@ -29,6 +29,7 @@
(require 'swift-mode-test-indent)
(require 'swift-mode-test-beginning-of-defun)
(require 'swift-mode-test-imenu)
+(require 'swift-mode-test-font-lock)
(defvar swift-mode:test:basedir
(file-name-directory (or load-file-name buffer-file-name)))
@@ -48,7 +49,8 @@ Return the error-buffer"
(defvar swift-mode:tests
'(swift-mode:run-test:indent
swift-mode:run-test:beginning-of-defun
- swift-mode:run-test:imenu))
+ swift-mode:run-test:imenu
+ swift-mode:run-test:font-lock))
(defun swift-mode:run-test (&optional tests)
"Run TESTS for `swift-mode'."
