diff options
| author | Denis Zubarev | 2023-11-12 01:42:42 +0300 |
|---|---|---|
| committer | Yuan Fu | 2023-12-22 22:59:30 -0800 |
| commit | 7a00ca92c191a8d105283f73e9b68f6a0378a3a0 (patch) | |
| tree | 2898c1d8ab8cb2a52bbf23b54474e34e722561f6 /test/src | |
| parent | d220893216c3c6873b2bb529628e08c526d7f4ff (diff) | |
| download | emacs-7a00ca92c191a8d105283f73e9b68f6a0378a3a0.tar.gz 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).
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/treesit-tests.el | 20 |
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." | |||
| 1090 | (python-ts-mode) | 1090 | (python-ts-mode) |
| 1091 | (insert "Temp(1, 2)") | 1091 | (insert "Temp(1, 2)") |
| 1092 | (goto-char (point-min)) | 1092 | (goto-char (point-min)) |
| 1093 | (let ((node (treesit-search-subtree | 1093 | (pcase-let* ((`((,_ . ,call-node)) |
| 1094 | (treesit--thing-at (point) "call") | 1094 | (treesit-query-capture (treesit-buffer-root-node) |
| 1095 | (lambda (n) (equal (treesit-node-type n ) "integer"))))) | 1095 | '((call) @c))) |
| 1096 | (node (treesit-search-subtree | ||
| 1097 | call-node | ||
| 1098 | (lambda (n) (equal (treesit-node-type n) "integer"))))) | ||
| 1096 | 1099 | ||
| 1097 | (should node) | 1100 | (should node) |
| 1098 | (should (equal (treesit-node-text node) "1")))) | 1101 | (should (equal (treesit-node-text node) "1")))) |
| @@ -1104,10 +1107,13 @@ This tests bug#60355." | |||
| 1104 | (python-ts-mode) | 1107 | (python-ts-mode) |
| 1105 | (insert "Temp(1, 2)") | 1108 | (insert "Temp(1, 2)") |
| 1106 | (goto-char (point-min)) | 1109 | (goto-char (point-min)) |
| 1107 | (let ((node (treesit-search-subtree | 1110 | (pcase-let* ((`((,_ . ,call-node)) |
| 1108 | (treesit--thing-at (point) "call") | 1111 | (treesit-query-capture (treesit-buffer-root-node) |
| 1109 | (lambda (n) (equal (treesit-node-type n ) "integer")) | 1112 | '((call) @c))) |
| 1110 | t))) | 1113 | (node (treesit-search-subtree |
| 1114 | call-node | ||
| 1115 | (lambda (n) (equal (treesit-node-type n) "integer")) | ||
| 1116 | t))) | ||
| 1111 | 1117 | ||
| 1112 | (should node) | 1118 | (should node) |
| 1113 | (should (equal (treesit-node-text node) "2")))) | 1119 | (should (equal (treesit-node-text node) "2")))) |