From: Yuan Fu <casouri@gmail.com>
Date: Mon, 17 Oct 2022 21:00:12 +0000 (-0700)
Subject: Skip tree-sitter tests unless language definition is available
X-Git-Tag: emacs-29.0.90~1819
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0be9a639fca70c278d1b79fcea5d6beebdf7799c;p=emacs.git

Skip tree-sitter tests unless language definition is available

* test/src/treesit-tests.el (treesit-basic-parsing)
(treesit-node-api)
(treesit-query-api)
(treesit-narrow)
(treesit-cross-boundary)
(treesit-multi-lang)
(treesit-node-supplemental): Add skip-unless form.
---

diff --git a/test/src/treesit-tests.el b/test/src/treesit-tests.el
index 6fa891a136a..adc17bc079a 100644
--- a/test/src/treesit-tests.el
+++ b/test/src/treesit-tests.el
@@ -24,6 +24,7 @@
 
 (ert-deftest treesit-basic-parsing ()
   "Test basic parsing routines."
+  (skip-unless (treesit-language-available-p 'json))
   (with-temp-buffer
     (let ((parser (treesit-parser-create 'json)))
       (should
@@ -50,6 +51,7 @@
 
 (ert-deftest treesit-node-api ()
   "Tests for node API."
+  (skip-unless (treesit-language-available-p 'json))
   (with-temp-buffer
     (let (parser root-node doc-node object-node pair-node)
       (progn
@@ -123,6 +125,7 @@
 
 (ert-deftest treesit-query-api ()
   "Tests for query API."
+  (skip-unless (treesit-language-available-p 'json))
   (with-temp-buffer
     (let (parser root-node pattern doc-node object-node pair-node)
       (progn
@@ -173,6 +176,7 @@
 
 (ert-deftest treesit-narrow ()
   "Tests if narrowing works."
+  (skip-unless (treesit-language-available-p 'json))
   (with-temp-buffer
     (let (parser root-node pattern doc-node object-node pair-node)
       (progn
@@ -230,6 +234,7 @@ don't test if parser parses correctly, instead we just check
 edits like this don't produce assertion errors.  (I inserted a
 bunch of assertions that checks e.g. visible_beg <=
 visible_end.)"
+  (skip-unless (treesit-language-available-p 'json))
   (with-temp-buffer
     (let (parser root-node pattern doc-node object-node pair-node)
       (progn
@@ -308,6 +313,7 @@ visible_end.)"
 
 (ert-deftest treesit-range ()
   "Tests if range works."
+  (skip-unless (treesit-language-available-p 'json))
   (with-temp-buffer
     (let (parser root-node pattern doc-node object-node pair-node)
       (progn
@@ -332,6 +338,9 @@ visible_end.)"
 
 (ert-deftest treesit-multi-lang ()
   "Tests if parsing multiple language works."
+  (skip-unless (and (treesit-language-available-p 'html)
+                    (treesit-language-available-p 'css)
+                    (treesit-language-available-p 'javascript)))
   (with-temp-buffer
     (let (html css js html-range css-range js-range)
       (progn
@@ -365,6 +374,7 @@ visible_end.)"
 
 (ert-deftest treesit-parser-supplemental ()
   "Supplemental node functions."
+  (skip-unless (treesit-language-available-p 'json))
   ;; `treesit-parse-string'.
   (should (equal (treesit-node-string
                   (treesit-parse-string
@@ -390,6 +400,7 @@ visible_end.)"
 
 (ert-deftest treesit-node-supplemental ()
   "Supplemental node functions."
+  (skip-unless (treesit-language-available-p 'json))
   (let (parser root-node doc-node array-node)
     (progn
       (insert "[1,2,{\"name\": \"Bob\"},3]")