branch: externals/assess
commit 3e74c4b70dbf108e2e8305921e6b101ada038117
Author: Phillip Lord <phillip.l...@russet.org.uk>
Commit: Phillip Lord <phillip.l...@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=
