aboutsummaryrefslogtreecommitdiffstats
path: root/test/src
diff options
context:
space:
mode:
authorYuan Fu2022-12-12 18:14:30 -0800
committerYuan Fu2022-12-12 21:12:21 -0800
commita5272e2a7cc77f17efa144c5482dcfcb62d563d3 (patch)
tree37878136e0cdef6e64a62ce7fbc2bd1e193e367c /test/src
parent489bcacc7c30207b9dbaeb90b9002255af8bfe64 (diff)
downloademacs-a5272e2a7cc77f17efa144c5482dcfcb62d563d3.tar.gz
emacs-a5272e2a7cc77f17efa144c5482dcfcb62d563d3.zip
; * test/src/treesit-tests.el: Add outline headers.
Diffstat (limited to 'test/src')
-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 @@
54(declare-function treesit-node-descendant-for-range "treesit.c") 54(declare-function treesit-node-descendant-for-range "treesit.c")
55(declare-function treesit-node-eq "treesit.c") 55(declare-function treesit-node-eq "treesit.c")
56 56
57;;; Basic API
57 58
58(ert-deftest treesit-basic-parsing () 59(ert-deftest treesit-basic-parsing ()
59 "Test basic parsing routines." 60 "Test basic parsing routines."
@@ -161,6 +162,8 @@
161 (should (treesit-node-eq root-node root-node)) 162 (should (treesit-node-eq root-node root-node))
162 (should (not (treesit-node-eq root-node doc-node)))))) 163 (should (not (treesit-node-eq root-node doc-node))))))
163 164
165;;; Indirect buffer
166
164(ert-deftest treesit-indirect-buffer () 167(ert-deftest treesit-indirect-buffer ()
165 "Tests for indirect buffers." 168 "Tests for indirect buffers."
166 (skip-unless (treesit-language-available-p 'json)) 169 (skip-unless (treesit-language-available-p 'json))
@@ -195,6 +198,8 @@
195 (kill-buffer base) 198 (kill-buffer base)
196 (kill-buffer indirect)))) 199 (kill-buffer indirect))))
197 200
201;;; Query
202
198(ert-deftest treesit-query-api () 203(ert-deftest treesit-query-api ()
199 "Tests for query API." 204 "Tests for query API."
200 (skip-unless (treesit-language-available-p 'json)) 205 (skip-unless (treesit-language-available-p 'json))
@@ -249,6 +254,8 @@
249 '((type field: (_) @capture :anchor) 254 '((type field: (_) @capture :anchor)
250 :? :* :+ "return"))))))) 255 :? :* :+ "return")))))))
251 256
257;;; Narrow
258
252(ert-deftest treesit-narrow () 259(ert-deftest treesit-narrow ()
253 "Tests if narrowing works." 260 "Tests if narrowing works."
254 (skip-unless (treesit-language-available-p 'json)) 261 (skip-unless (treesit-language-available-p 'json))
@@ -385,6 +392,8 @@ visible_end.)"
385 ;; that calls that. 392 ;; that calls that.
386 ))) 393 )))
387 394
395;;; Range
396
388(ert-deftest treesit-range () 397(ert-deftest treesit-range ()
389 "Tests if range works." 398 "Tests if range works."
390 (skip-unless (treesit-language-available-p 'json)) 399 (skip-unless (treesit-language-available-p 'json))
@@ -438,6 +447,8 @@ visible_end.)"
438 ;; TODO: More tests. 447 ;; TODO: More tests.
439 ))) 448 )))
440 449
450;;; Multiple language
451
441(ert-deftest treesit-multi-lang () 452(ert-deftest treesit-multi-lang ()
442 "Tests if parsing multiple language works." 453 "Tests if parsing multiple language works."
443 (skip-unless (and (treesit-language-available-p 'html) 454 (skip-unless (and (treesit-language-available-p 'html)
@@ -474,6 +485,8 @@ visible_end.)"
474 ;; TODO: More tests. 485 ;; TODO: More tests.
475 ))) 486 )))
476 487
488;;; Supplemental functions
489
477(ert-deftest treesit-parser-supplemental () 490(ert-deftest treesit-parser-supplemental ()
478 "Supplemental node functions." 491 "Supplemental node functions."
479 (skip-unless (treesit-language-available-p 'json)) 492 (skip-unless (treesit-language-available-p 'json))