diff options
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")))) |