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

* 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.

diff --git a/test/lisp/align-tests.el b/test/lisp/align-tests.el
index cd309ea07bf542dbc4065807e7e39b53c9901289..eaebaf8360c78aafc41a49f1a50bf8a12265a4cb 100644 (file)
--- a/test/lisp/align-tests.el
+++ b/test/lisp/align-tests.el
@@ -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")

diff --git a/test/lisp/progmodes/lua-ts-mode-tests.el b/test/lisp/progmodes/lua-ts-mode-tests.el
index a7b637d18d11b8a7c077ddf372663de97f7414b1..68b8c9ccfaafb95e7a278c6067f4e480c50a5652 100644 (file)
--- a/test/lisp/progmodes/lua-ts-mode-tests.el
+++ b/test/lisp/progmodes/lua-ts-mode-tests.el
@@ -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)