martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

; Fix recently-added treesit test

Browse Source 
* test/src/treesit-tests.el (treesit-query-node-only-and-grouped):
Remove unused variables.
This commit is contained in:
Eli Zaretskii
2026-04-05 09:52:56 +03:00
parent 670bb34d91
commit 93f40d1bb7
1 changed files with 22 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
test/src/treesit-tests.el
View File

@@ -594,33 +594,31 @@ BODY is the test body."
"Tests for query API."
(skip-unless (treesit-language-available-p 'json))
(with-temp-buffer
(let (parser root-node)
(progn
(insert "[1,2,{\"name\": \"Bob\"},3]")
(setq parser (treesit-parser-create 'json)))
(insert "[1,2,{\"name\": \"Bob\"},3]")
(treesit-parser-create 'json)
;; Test NODE-ONLY.
(let ((res (treesit-query-capture 'json '((number) @num) nil nil t)))
(should (equal (length res) 3))
;; First element should be a node rather than 'num.
(should (treesit-node-p (nth 0 res))))
;; Test NODE-ONLY.
(let ((res (treesit-query-capture 'json '((number) @num) nil nil t)))
(should (equal (length res) 3))
;; First element should be a node rather than 'num.
(should (treesit-node-p (nth 0 res))))
;; Test GROUPED.
(let ((res (treesit-query-capture 'json '((number) @num) nil nil nil t)))
(should (equal (length res) 3))
;; First element should be a match group.
(should (consp (nth 0 res)))
;; First element of the match group should be a cons (num . <node>).
(should (consp (nth 0 (nth 0 res))))
(should (eq (car (nth 0 (nth 0 res))) 'num)))
;; Test GROUPED.
(let ((res (treesit-query-capture 'json '((number) @num) nil nil nil t)))
(should (equal (length res) 3))
;; First element should be a match group.
(should (consp (nth 0 res)))
;; First element of the match group should be a cons (num . <node>).
(should (consp (nth 0 (nth 0 res))))
(should (eq (car (nth 0 (nth 0 res))) 'num)))
;; Test NODE-ONLY + GROUPED.
(let ((res (treesit-query-capture 'json '((number) @num) nil nil t t)))
(should (equal (length res) 3))
;; First element should be a match group.
(should (consp (nth 0 res)))
;; First element of the match group should be a node.
(should (treesit-node-p (nth 0 (nth 0 res))))))))
;; Test NODE-ONLY + GROUPED.
(let ((res (treesit-query-capture 'json '((number) @num) nil nil t t)))
(should (equal (length res) 3))
;; First element should be a match group.
(should (consp (nth 0 res)))
;; First element of the match group should be a node.
(should (treesit-node-p (nth 0 (nth 0 res)))))))
;;; Narrow