diff options
| author | Yuan Fu <casouri@gmail.com> | 2022-10-17 14:00:12 -0700 |
|---|---|---|
| committer | Yuan Fu <casouri@gmail.com> | 2022-10-17 14:00:12 -0700 |
| commit | 0be9a639fca70c278d1b79fcea5d6beebdf7799c (patch) | |
| tree | 2b28880173ca580a55f5106643fb5161b778b365 /test | |
| parent | 1cd42bfb8a5ff2aade43f31b864a8d2cd643d5a3 (diff) | |
| download | emacs-0be9a639fca70c278d1b79fcea5d6beebdf7799c.tar.gz emacs-0be9a639fca70c278d1b79fcea5d6beebdf7799c.tar.bz2 emacs-0be9a639fca70c278d1b79fcea5d6beebdf7799c.zip | |
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.
Diffstat (limited to 'test')
| -rw-r--r-- | test/src/treesit-tests.el | 11 |
1 files changed, 11 insertions, 0 deletions
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]") |