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

; * test/src/treesit-tests.el: Add outline headers.

Browse source
This commit is contained in:
Yuan Fu 2022-12-12 18:14:30 -08:00
parent 489bcacc7c
commit a5272e2a7c
No known key found for this signature in database
GPG key ID: 56E19BC57664A442
1 changed files with 13 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -54,6 +54,7 @@
(declare-function treesit-node-descendant-for-range "treesit.c") (declare-function treesit-node-descendant-for-range "treesit.c")
(declare-function treesit-node-eq "treesit.c") (declare-function treesit-node-eq "treesit.c")
;;; Basic API
(ert-deftest treesit-basic-parsing () (ert-deftest treesit-basic-parsing ()
"Test basic parsing routines." "Test basic parsing routines."
@ -161,6 +162,8 @@
(should (treesit-node-eq root-node root-node)) (should (treesit-node-eq root-node root-node))
(should (not (treesit-node-eq root-node doc-node)))))) (should (not (treesit-node-eq root-node doc-node))))))
;;; Indirect buffer
(ert-deftest treesit-indirect-buffer () (ert-deftest treesit-indirect-buffer ()
"Tests for indirect buffers." "Tests for indirect buffers."
(skip-unless (treesit-language-available-p 'json)) (skip-unless (treesit-language-available-p 'json))
@ -195,6 +198,8 @@
(kill-buffer base) (kill-buffer base)
(kill-buffer indirect)))) (kill-buffer indirect))))
;;; Query
(ert-deftest treesit-query-api () (ert-deftest treesit-query-api ()
"Tests for query API." "Tests for query API."
(skip-unless (treesit-language-available-p 'json)) (skip-unless (treesit-language-available-p 'json))
@ -249,6 +254,8 @@
'((type field: (_) @capture :anchor) '((type field: (_) @capture :anchor)
:? :* :+ "return"))))))) :? :* :+ "return")))))))
;;; Narrow
(ert-deftest treesit-narrow () (ert-deftest treesit-narrow ()
"Tests if narrowing works." "Tests if narrowing works."
(skip-unless (treesit-language-available-p 'json)) (skip-unless (treesit-language-available-p 'json))
@ -385,6 +392,8 @@ visible_end.)"
;; that calls that. ;; that calls that.
))) )))
;;; Range
(ert-deftest treesit-range () (ert-deftest treesit-range ()
"Tests if range works." "Tests if range works."
(skip-unless (treesit-language-available-p 'json)) (skip-unless (treesit-language-available-p 'json))
@ -438,6 +447,8 @@ visible_end.)"
;; TODO: More tests. ;; TODO: More tests.
))) )))
;;; Multiple language
(ert-deftest treesit-multi-lang () (ert-deftest treesit-multi-lang ()
"Tests if parsing multiple language works." "Tests if parsing multiple language works."
(skip-unless (and (treesit-language-available-p 'html) (skip-unless (and (treesit-language-available-p 'html)
@ -474,6 +485,8 @@ visible_end.)"
;; TODO: More tests. ;; TODO: More tests.
))) )))
;;; Supplemental functions
(ert-deftest treesit-parser-supplemental () (ert-deftest treesit-parser-supplemental ()
"Supplemental node functions." "Supplemental node functions."
(skip-unless (treesit-language-available-p 'json)) (skip-unless (treesit-language-available-p 'json))