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).

diff --git a/test/src/treesit-tests.el b/test/src/treesit-tests.el
index 9ba3a9340c1cd2cb803d2b764dd57a11acc8ce21..1763c3894f5284b8750130a7df36bbd86b014c87 100644 (file)
--- 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"))))