summaryrefslogtreecommitdiff
path: root/test/src/treesit-tests.el
diff options
context:
space:
mode:
authorYuan Fu <casouri@gmail.com>2022-12-12 18:14:30 -0800
committerYuan Fu <casouri@gmail.com>2022-12-12 21:12:21 -0800
commita5272e2a7cc77f17efa144c5482dcfcb62d563d3 (patch)
tree37878136e0cdef6e64a62ce7fbc2bd1e193e367c /test/src/treesit-tests.el
parent489bcacc7c30207b9dbaeb90b9002255af8bfe64 (diff)
downloademacs-a5272e2a7cc77f17efa144c5482dcfcb62d563d3.tar.gz
emacs-a5272e2a7cc77f17efa144c5482dcfcb62d563d3.tar.bz2
emacs-a5272e2a7cc77f17efa144c5482dcfcb62d563d3.zip
; * test/src/treesit-tests.el: Add outline headers.
Diffstat (limited to 'test/src/treesit-tests.el')
-rw-r--r--test/src/treesit-tests.el13
1 files changed, 13 insertions, 0 deletions
diff --git a/test/src/treesit-tests.el b/test/src/treesit-tests.el
index 1cc2217bd3b..188a9557928 100644
--- a/test/src/treesit-tests.el
+++ b/test/src/treesit-tests.el
@@ -54,6 +54,7 @@
(declare-function treesit-node-descendant-for-range "treesit.c")
(declare-function treesit-node-eq "treesit.c")
+;;; Basic API
(ert-deftest treesit-basic-parsing ()
"Test basic parsing routines."
@@ -161,6 +162,8 @@
(should (treesit-node-eq root-node root-node))
(should (not (treesit-node-eq root-node doc-node))))))
+;;; Indirect buffer
+
(ert-deftest treesit-indirect-buffer ()
"Tests for indirect buffers."
(skip-unless (treesit-language-available-p 'json))
@@ -195,6 +198,8 @@
(kill-buffer base)
(kill-buffer indirect))))
+;;; Query
+
(ert-deftest treesit-query-api ()
"Tests for query API."
(skip-unless (treesit-language-available-p 'json))
@@ -249,6 +254,8 @@
'((type field: (_) @capture :anchor)
:? :* :+ "return")))))))
+;;; Narrow
+
(ert-deftest treesit-narrow ()
"Tests if narrowing works."
(skip-unless (treesit-language-available-p 'json))
@@ -385,6 +392,8 @@ visible_end.)"
;; that calls that.
)))
+;;; Range
+
(ert-deftest treesit-range ()
"Tests if range works."
(skip-unless (treesit-language-available-p 'json))
@@ -438,6 +447,8 @@ visible_end.)"
;; TODO: More tests.
)))
+;;; Multiple language
+
(ert-deftest treesit-multi-lang ()
"Tests if parsing multiple language works."
(skip-unless (and (treesit-language-available-p 'html)
@@ -474,6 +485,8 @@ visible_end.)"
;; TODO: More tests.
)))
+;;; Supplemental functions
+
(ert-deftest treesit-parser-supplemental ()
"Supplemental node functions."
(skip-unless (treesit-language-available-p 'json))