[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/tree-sitter 57b5250474 11/26: Add test for treesit-query-compile
From: |
Yuan Fu |
Subject: |
feature/tree-sitter 57b5250474 11/26: Add test for treesit-query-compile |
Date: |
Thu, 16 Jun 2022 14:53:45 -0400 (EDT) |
branch: feature/tree-sitter
commit 57b52504744d16b7b1ddf9225bb7c4d2b92510e3
Author: Yuan Fu <casouri@gmail.com>
Commit: Yuan Fu <casouri@gmail.com>
Add test for treesit-query-compile
* test/src/treesit-tests.el (treesit-query-api): Rename pattern to
query, and add treesit-query-compile into the mix.
---
test/src/treesit-tests.el | 50 +++++++++++++++++++++++++++--------------------
1 file changed, 29 insertions(+), 21 deletions(-)
diff --git a/test/src/treesit-tests.el b/test/src/treesit-tests.el
index 1b20b86bc9..c6d5f25472 100644
--- a/test/src/treesit-tests.el
+++ b/test/src/treesit-tests.el
@@ -134,37 +134,45 @@
(setq root-node (treesit-parser-root-node
parser)))
- (dolist (pattern
+ ;; Test `treesit-query-capture' on string, sexp and compiled
+ ;; queries.
+ (dolist (query1
+ ;; String query.
'("(string) @string
(pair key: (_) @keyword)
((_) @bob (#match \"^B.b$\" @bob))
(number) @number
((number) @n3 (#equal \"3\" @n3)) "
+ ;; Sexp query.
((string) @string
(pair key: (_) @keyword)
((_) @bob (:match "^B.b$" @bob))
(number) @number
((number) @n3 (:equal "3" @n3)))))
- (should
- (equal
- '((number . "1") (number . "2")
- (keyword . "\"name\"")
- (string . "\"name\"")
- (string . "\"Bob\"")
- (bob . "Bob")
- (number . "3")
- (n3 . "3"))
- (mapcar (lambda (entry)
- (cons (car entry)
- (treesit-node-text
- (cdr entry))))
- (treesit-query-capture root-node pattern))))
- (should
- (equal
- "(type field: (_) @capture .) ? * + \"return\""
- (treesit-expand-query
- '((type field: (_) @capture :anchor)
- :? :* :+ "return"))))))))
+ ;; Test `treesit-query-compile'.
+ (dolist (query (list query1
+ (treesit-query-compile 'json query1)))
+ (should
+ (equal
+ '((number . "1") (number . "2")
+ (keyword . "\"name\"")
+ (string . "\"name\"")
+ (string . "\"Bob\"")
+ (bob . "Bob")
+ (number . "3")
+ (n3 . "3"))
+ (mapcar (lambda (entry)
+ (cons (car entry)
+ (treesit-node-text
+ (cdr entry))))
+ (treesit-query-capture root-node query))))))
+ ;; Test `treesit-expand-query'.
+ (should
+ (equal
+ "(type field: (_) @capture .) ? * + \"return\""
+ (treesit-expand-query
+ '((type field: (_) @capture :anchor)
+ :? :* :+ "return")))))))
(ert-deftest treesit-narrow ()
"Tests if narrowing works."
- feature/tree-sitter updated (74f8572f6c -> 33f7e10a29), Yuan Fu, 2022/06/16
- feature/tree-sitter c62473c31a 05/26: Add depth control for treesit traverse functions, Yuan Fu, 2022/06/16
- feature/tree-sitter 296900184d 13/26: Add treesit-query-compile to manual, Yuan Fu, 2022/06/16
- feature/tree-sitter 57b5250474 11/26: Add test for treesit-query-compile,
Yuan Fu <=
- feature/tree-sitter 8f3b872e30 08/26: Add new type treesit-compiled-query, Yuan Fu, 2022/06/16
- feature/tree-sitter a73f2b9990 04/26: Fix treesit-search-forward, Yuan Fu, 2022/06/16
- feature/tree-sitter 35e2786c93 01/26: Fix typo and argument in treesit-beginning-of-defun, etc, Yuan Fu, 2022/06/16
- feature/tree-sitter 1dd8ddee12 02/26: Rename treesit-traverse-forward-depth-first, Yuan Fu, 2022/06/16
- feature/tree-sitter a8428b917d 09/26: * src/treesit.c (Ftreesit_query_p): New function., Yuan Fu, 2022/06/16
- feature/tree-sitter 316bdc334c 15/26: Add manual for treesit-traverse-forward and friends, Yuan Fu, 2022/06/16
- feature/tree-sitter 8aa04aac65 07/26: ; * lisp/treesit.el (treesit-defun-query): Improve docstring., Yuan Fu, 2022/06/16
- feature/tree-sitter e171ef933f 10/26: Support compiled queries in treesit-query-capture, Yuan Fu, 2022/06/16
- feature/tree-sitter b3de8850e0 06/26: Use the up-only parameter in treesit navigation functions, Yuan Fu, 2022/06/16
- feature/tree-sitter 016e4ca7a7 12/26: ; * doc/lispref/parsing.texi: Minor fix-up., Yuan Fu, 2022/06/16