mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

; Quietly skip 'lua-ts-mode' tests (bug#70786)

Browse Source 
* test/lisp/align-tests.el (align-lua):
* test/lisp/progmodes/lua-ts-mode-tests.el
(lua-ts-test-indentation):
(lua-ts-test-movement):
(lua-ts-test-font-lock):
(lua-ts-test-which-function): Suppress warnings when the grammar is not
installed.
This commit is contained in:
john muhl 2024-04-27 18:52:41 -05:00 committed by Yuan Fu
parent 03d4b96da6
commit 4eb363acc8
No known key found for this signature in database
GPG Key ID: 56E19BC57664A442
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
test/lisp/align-tests.el
View File

@ -52,7 +52,7 @@
(autoload 'treesit-ready-p "treesit")
(ert-deftest align-lua ()
(skip-unless (treesit-ready-p 'lua))
(skip-unless (treesit-ready-p 'lua t))
(let ((comment-column 20)
(indent-tabs-mode nil))
(ert-test-erts-file (ert-resource-file "lua-ts-mode.erts")

8
test/lisp/progmodes/lua-ts-mode-tests.el
View File

@ -26,20 +26,20 @@
(require 'which-func)
(ert-deftest lua-ts-test-indentation ()
(skip-unless (treesit-ready-p 'lua))
(skip-unless (treesit-ready-p 'lua t))
(ert-test-erts-file (ert-resource-file "indent.erts")))
(ert-deftest lua-ts-test-movement ()
(skip-unless (treesit-ready-p 'lua))
(skip-unless (treesit-ready-p 'lua t))
(ert-test-erts-file (ert-resource-file "movement.erts")))
(ert-deftest lua-ts-test-font-lock ()
(skip-unless (treesit-ready-p 'lua))
(skip-unless (treesit-ready-p 'lua t))
(let ((treesit-font-lock-level 4))
(ert-font-lock-test-file (ert-resource-file "font-lock.lua") 'lua-ts-mode)))
(ert-deftest lua-ts-test-which-function ()
(skip-unless (treesit-ready-p 'lua))
(skip-unless (treesit-ready-p 'lua t))
(with-temp-buffer
(insert-file-contents (ert-resource-file "which-function.lua"))
(lua-ts-mode)