mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Eglot: add two semtok tests

Browse source 
The tests are pretty basic, I don't expect them to catch
anything else than giant bugs.

* test/lisp/progmodes/eglot-tests.el (eglot-test-semtok-basic)
(eglot-test-semtok-refontify): New tests.
(eglot--semtok-faces, eglot--semtok-wait): New helpers.
This commit is contained in:
João Távora 2025-11-13 22:00:11 +00:00
parent 6126ab8d82
commit 7a3b8c6df5
1 changed files with 52 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

52
test/lisp/progmodes/eglot-tests.el
View file

@ -1503,6 +1503,58 @@ GUESSED-MAJOR-MODES-SYM are bound to the useful return values of
(eglot--find-file-noselect "project/foolib.c")
(should (eq (eglot-current-server) server))))))
(defun eglot--semtok-faces () "Get semtok faces before point"
(get-text-property (1- (point)) 'eglot--semtok-faces))
(defun eglot--semtok-wait (pos) "Wait for semtok faces to appear after POS"
(eglot--with-timeout
'(3 "Timeout waiting for semantic tokens")
(while (not (save-excursion
(goto-char pos)
(text-property-search-forward 'eglot--semtok-faces)))
(accept-process-output nil 0.1)
(font-lock-ensure))))
(ert-deftest eglot-test-semtok-basic ()
"Test basic semantic tokens fontification."
(skip-unless (executable-find "clangd"))
(eglot--with-fixture
`(("project" . (("main.c" . "int main() { int x = 42; return x; }"))))
(with-current-buffer
(eglot--find-file-noselect "project/main.c")
(eglot--tests-connect)
(should (eglot-server-capable :semanticTokensProvider))
(should eglot-semantic-tokens-mode)
;; Trigger initial fontification, then wait for semantic tokens
(font-lock-ensure)
(eglot--semtok-wait (point-min))
(goto-char (point-min))
(search-forward "main")
(should (memq 'eglot-semantic-function-face (eglot--semtok-faces)))
(search-forward "int x")
(should (memq 'eglot-semantic-variable-face (eglot--semtok-faces))))))
(ert-deftest eglot-test-semtok-refontify ()
"Test semantic tokens refontification after edits."
(skip-unless (executable-find "clangd"))
(eglot--with-fixture
`(("project" . (("code.c" . "int foo() { return 0; }"))))
(with-current-buffer
(eglot--find-file-noselect "project/code.c")
(eglot--tests-connect)
(should eglot-semantic-tokens-mode)
(font-lock-ensure)
(eglot--semtok-wait (point-min))
(goto-char (point-max))
(save-excursion (insert "\nint bar() { int y = 10; return y; }"))
(font-lock-ensure)
(eglot--signal-textDocument/didChange) ; a bit unrealistic
(eglot--semtok-wait (point))
(search-forward "bar")
(should (memq 'eglot-semantic-function-face (eglot--semtok-faces)))
(search-forward "int y")
(should (memq 'eglot-semantic-variable-face (eglot--semtok-faces))))))
(provide 'eglot-tests)
;; Local Variables: