summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDenis Zubarev <dvzubarev@yandex.ru>2023-11-12 01:42:42 +0300
committerYuan Fu <casouri@gmail.com>2023-12-22 22:59:30 -0800
commit7a00ca92c191a8d105283f73e9b68f6a0378a3a0 (patch)
tree2898c1d8ab8cb2a52bbf23b54474e34e722561f6
parentd220893216c3c6873b2bb529628e08c526d7f4ff (diff)
downloademacs-7a00ca92c191a8d105283f73e9b68f6a0378a3a0.tar.gz
emacs-7a00ca92c191a8d105283f73e9b68f6a0378a3a0.tar.bz2
emacs-7a00ca92c191a8d105283f73e9b68f6a0378a3a0.zip
Fix treesit test (bug#67117)
* test/src/treesit-tests.el (treesit-search-subtree-forward-1): (treesit-search-subtree-backward-1): Replace treesit--thing-at with treesit-query-capture (treesit--thing-at isn't available in Emacs 29).
-rw-r--r--test/src/treesit-tests.el20
1 files changed, 13 insertions, 7 deletions
diff --git a/test/src/treesit-tests.el b/test/src/treesit-tests.el
index 9ba3a9340c1..1763c3894f5 100644
--- a/test/src/treesit-tests.el
+++ b/test/src/treesit-tests.el
@@ -1090,9 +1090,12 @@ This tests bug#60355."
(python-ts-mode)
(insert "Temp(1, 2)")
(goto-char (point-min))
- (let ((node (treesit-search-subtree
- (treesit--thing-at (point) "call")
- (lambda (n) (equal (treesit-node-type n ) "integer")))))
+ (pcase-let* ((`((,_ . ,call-node))
+ (treesit-query-capture (treesit-buffer-root-node)
+ '((call) @c)))
+ (node (treesit-search-subtree
+ call-node
+ (lambda (n) (equal (treesit-node-type n) "integer")))))
(should node)
(should (equal (treesit-node-text node) "1"))))
@@ -1104,10 +1107,13 @@ This tests bug#60355."
(python-ts-mode)
(insert "Temp(1, 2)")
(goto-char (point-min))
- (let ((node (treesit-search-subtree
- (treesit--thing-at (point) "call")
- (lambda (n) (equal (treesit-node-type n ) "integer"))
- t)))
+ (pcase-let* ((`((,_ . ,call-node))
+ (treesit-query-capture (treesit-buffer-root-node)
+ '((call) @c)))
+ (node (treesit-search-subtree
+ call-node
+ (lambda (n) (equal (treesit-node-type n) "integer"))
+ t)))
(should node)
(should (equal (treesit-node-text node) "2"))))