procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Skip tree-sitter tests unless language definition is available

Browse source 
* 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.
This commit is contained in:
Yuan Fu 2022-10-17 14:00:12 -07:00
parent 1cd42bfb8a
commit 0be9a639fc
No known key found for this signature in database
GPG key ID: 56E19BC57664A442
1 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
test/src/treesit-tests.el
View file

@ -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]")