[nongnu] elpa/lua-mode 6daec31 342/468: utils: update to new buttercup matcher definition logic (#138)

[Philip Kaludercic]

branch: elpa/lua-mode
commit 6daec313ab06a1fad823044aca59289fd00b1f63
Author: immerrr <immerrr+lua@gmail.com>
Commit: immerrr <immerrr+lua@gmail.com>

    utils: update to new buttercup matcher definition logic (#138)
---
 test/utils.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/test/utils.el b/test/utils.el
index c2f4c8e..63d77be 100644
--- a/test/utils.el
+++ b/test/utils.el
@@ -29,22 +29,22 @@ Fontification check failed on line %d for:
 
 
 (buttercup-define-matcher :to-be-fontified-as (text faces)
-  (to-be-fontified-as text faces))
+  (to-be-fontified-as (funcall text) (funcall faces)))
 
 
 (buttercup-define-matcher :to-precede (pos regexp)
   (save-excursion
-    (goto-char pos)
-    (let* ((precedes (looking-at regexp))
-           (substr-begin (min (point-max) pos))
-           (substr-end (min (point-max) (+ pos 100)))
+    (goto-char (funcall pos))
+    (let* ((precedes (looking-at (funcall regexp)))
+           (substr-begin (min (point-max) (funcall pos)))
+           (substr-end (min (point-max) (+ (funcall pos) 100)))
            (found-after (format "%S" (buffer-substring-no-properties
                                       substr-begin substr-end ))))
       (goto-char substr-end)
       (when (eobp) (setq found-after (concat found-after " (end-of-buffer)")))
       (cons precedes (format "Expected %s to see after point at %s: %S.  
Found: %s"
                              (if precedes "NOT" "")
-                             pos regexp found-after)))))
+                             (funcall pos) (funcall regexp) found-after)))))