branch: externals/hotfuzz
commit e568d338e8e22a343c8785bac0a04925fa4cc743
Author: Axel Forsman <[email protected]>
Commit: Axel Forsman <[email protected]>
Add test for completion-lazy-hilit
---
test/tests.el | 20 +++++++++++++++++---
1 file changed, 17 insertions(+), 3 deletions(-)
diff --git a/test/tests.el b/test/tests.el
index 5f5322e59b..f3a2700eb0 100644
--- a/test/tests.el
+++ b/test/tests.el
@@ -29,8 +29,7 @@
(ert-deftest tighter-match-cost-test ()
"Test that matches spanning fewer characters are better."
- (should (< (hotfuzz--cost "ab" "xaxbxx")
- (hotfuzz--cost "ab" "xaxxbx"))))
+ (should (< (hotfuzz--cost "ab" "xaxbxx") (hotfuzz--cost "ab" "xaxxbx"))))
;;; Highlighting tests
@@ -77,7 +76,12 @@
(last (last candidates)))
(when (numberp (cdr last)) (setcdr last nil))
(when sortfun (setq candidates (funcall sortfun candidates)))
- (should (equal candidates '("fb" "foo-baz" "foobar")))))
+ ;; Completions should be eagerly fontified by default
+ (should (equal-including-properties
+ candidates
+ '(#("fb" 0 2 (completion-sorted t face completions-common-part))
+ #("foo-baz" 0 1 (face completions-common-part) 4 5 (face
completions-common-part))
+ #("foobar" 0 1 (face completions-common-part) 3 4 (face
completions-common-part)))))))
(ert-deftest boundaries-test ()
"Test completion on a single field of a filename."
@@ -96,3 +100,13 @@
nil
6) ; Point as in "/usr/s|/man"
'("share/" . 5)))))
+
+(defvar completion-lazy-hilit)
+(defvar completion-lazy-hilit-fn)
+(ert-deftest lazy-hilit-test ()
+ "Test lazy fontification."
+ (let ((completion-lazy-hilit t) completion-lazy-hilit-fn)
+ (should (equal-including-properties (hotfuzz-all-completions "x" '("x"))
+ '(#("x" 0 1 (completion-sorted t)))))
+ (should (equal-including-properties (funcall completion-lazy-hilit-fn "x")
+ #("x" 0 1 (face
completions-common-part))))))
