branch: elpa/lua-mode
commit cadc1ea8594c1367b910e46aec597cb6d065d74f
Author: immerrr <[email protected]>
Commit: immerrr <[email protected]>
to-be-fontified-as: improve error messages
---
test/utils.el | 25 ++++++++++++++++++++++---
1 file changed, 22 insertions(+), 3 deletions(-)
diff --git a/test/utils.el b/test/utils.el
index bf16a75..65256f2 100644
--- a/test/utils.el
+++ b/test/utils.el
@@ -1,12 +1,31 @@
+;; -*- flycheck-disabled-checkers: (emacs-lisp-checkdoc) -*-
+
(require 'lua-mode)
(require 'buttercup)
(defun to-be-fontified-as (text faces)
(let ((expected-faces (lua-mk-font-lock-faces faces))
- (result-faces (lua-get-line-faces text)))
- (cons (equal expected-faces result-faces)
- (format "Expected %S to be fontified as %s" text faces))))
+ (result-faces (lua-get-line-faces text))
+ (lineno 1))
+ (when (/= (length expected-faces) (length result-faces))
+ (buttercup-fail "\
+Fontification check failed for:
+%S
+ Text contains %d lines, face list contains %d lines"
+ text (length result-faces) (length expected-faces)))
+ (while expected-faces
+ (unless (equal (car expected-faces) (car result-faces))
+ (buttercup-fail "\
+Fontification check failed on line %d for:
+%S
+ Result faces: %S
+ Expected faces: %S"
+ lineno text (car expected-faces) (car result-faces)))
+ (setq expected-faces (cdr expected-faces)
+ result-faces (cdr result-faces)
+ lineno (1+ lineno)))
+ (cons t "Fontification check passed")))
(buttercup-define-matcher :to-be-fontified-as (text faces)
