[elpa] externals/assess 3e74c4b70d 30/95: Add test for string font-lock comparison.

[ELPA Syncer]

branch: externals/assess
commit 3e74c4b70dbf108e2e8305921e6b101ada038117
Author: Phillip Lord <phillip.lord@russet.org.uk>
Commit: Phillip Lord <phillip.lord@russet.org.uk>

    Add test for string font-lock comparison.
---
 test/sisyphus-test.el | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/test/sisyphus-test.el b/test/sisyphus-test.el
index 012ffcd3e9..295fef1e1b 100644
--- a/test/sisyphus-test.el
+++ b/test/sisyphus-test.el
@@ -28,6 +28,7 @@
 (require 'load-relative)
 (require 'sisyphus)
 (require 'cl-lib)
+
 ;; #+end_src
 
 ;; ** Test Extraction
@@ -395,7 +396,6 @@ This also tests the advice on string=."
     2
     'font-lock-keyword-face)))
 
-
 (ert-deftest sisyphus-test-face-at-multiple-positions ()
   (should
    (sisyphus-face-at=
@@ -437,6 +437,22 @@ This also tests the advice on string=."
       (m-buffer-match buf "defun"))
     'font-lock-keyword-face)))
 
+;; Need extra support from m-buffer.
+(ert-deftest sisyphus-test-face-at-with-strings ()
+  :expected-result :failed
+  (should
+   (sisyphus-face-at=
+    "(defun x ())\n(defun y ())\n(defun z ())"
+    'emacs-lisp-mode
+    "defun"
+    'font-lock-keyword-face))
+  (should
+   (sisyphus-face-at=
+    "(defun x ())\n(defmacro y ())\n(defun z ())"
+    'emacs-lisp-mode
+    '("defun" "defmacro" "defun")
+    'font-lock-keyword-face)))
+
 (ert-deftest sisyphus-test-file-face-at ()
   (should
    (sisyphus-file-face-at=