aboutsummaryrefslogtreecommitdiffstats
path: root/test/src
diff options
context:
space:
mode:
authorYuan Fu2023-11-09 20:49:30 -0800
committerYuan Fu2023-11-09 20:49:30 -0800
commit0db75b80e1ce54f3597f7d19468157fd5ec2bd71 (patch)
tree27ee6e2f0bbee26f43b7020588f13eef5318680c /test/src
parent1653389b5744606e04838cdede310ea76fba31f9 (diff)
downloademacs-0db75b80e1ce54f3597f7d19468157fd5ec2bd71.tar.gz
emacs-0db75b80e1ce54f3597f7d19468157fd5ec2bd71.zip
Add treesit-node-enclosed-p
* doc/lispref/parsing.texi (Accessing Node Information): Add manual entry. * lisp/treesit.el (treesit-node-enclosed-p): New function. (treesit): Add shortdoc entry. * test/src/treesit-tests.el (treesit-node-api): Add tests.
Diffstat (limited to 'test/src')
-rw-r--r--test/src/treesit-tests.el7
1 files changed, 7 insertions, 0 deletions
diff --git a/test/src/treesit-tests.el b/test/src/treesit-tests.el
index 4308e4048f6..791e902bd0a 100644
--- a/test/src/treesit-tests.el
+++ b/test/src/treesit-tests.el
@@ -166,6 +166,13 @@
166 ;; `treesit-node-eq'. 166 ;; `treesit-node-eq'.
167 (should (treesit-node-eq root-node root-node)) 167 (should (treesit-node-eq root-node root-node))
168 (should (not (treesit-node-eq root-node doc-node))) 168 (should (not (treesit-node-eq root-node doc-node)))
169 ;; `treesit-node-enclosed-p'
170 (should (treesit-node-enclosed-p '(1 . 3) '(1 . 4)))
171 (should (treesit-node-enclosed-p '(1 . 3) '(1 . 3)))
172 (should (not (treesit-node-enclosed-p '(1 . 3) '(1 . 4) t)))
173 (should (treesit-node-enclosed-p '(1 . 3) '(1 . 4) 'partial))
174 (should (treesit-node-enclosed-p '(2 . 3) '(1 . 4) t))
175 (should (treesit-node-enclosed-p object-node root-node))
169 176
170 ;; Further test for `treesit-node-check'. 177 ;; Further test for `treesit-node-check'.
171 (treesit-parser-delete parser) 178 (treesit-parser-delete parser)