From: Hilko Bengen Date: Thu, 14 Dec 2017 11:19:34 +0100 Subject: Adjust tests to deal with incompatible changes made in buttercup 1.9 MIME-Version: 1.0 Content-Type: text/plain; charset="utf-8" Content-Transfer-Encoding: 8bit Thanks to Jorgen Schäfer for advice (https://github.com/jorgenschaefer/emacs-buttercup/issues/120) --- test/utils.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/test/utils.el b/test/utils.el index 65256f2..dea5a38 100644 --- a/test/utils.el +++ b/test/utils.el @@ -5,15 +5,15 @@ (defun to-be-fontified-as (text faces) - (let ((expected-faces (lua-mk-font-lock-faces faces)) - (result-faces (lua-get-line-faces text)) + (let ((expected-faces (lua-mk-font-lock-faces (funcall faces))) + (result-faces (lua-get-line-faces (funcall 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))) + (funcall text) (length result-faces) (length expected-faces))) (while expected-faces (unless (equal (car expected-faces) (car result-faces)) (buttercup-fail "\ @@ -21,7 +21,7 @@ Fontification check failed on line %d for: %S Result faces: %S Expected faces: %S" - lineno text (car expected-faces) (car result-faces))) + lineno (funcall text) (car expected-faces) (car result-faces))) (setq expected-faces (cdr expected-faces) result-faces (cdr result-faces) lineno (1+ lineno)))