feature/tree-sitter 7e9c2e2952 2/4: ; * test/src/treesit-tests.el (treesit-node-check): New test.

[Yuan Fu]

branch: feature/tree-sitter
commit 7e9c2e295283b4dcf4f88cf25a094e37731543fc
Author: Yuan Fu <casouri@gmail.com>
Commit: Yuan Fu <casouri@gmail.com>

    ; * test/src/treesit-tests.el (treesit-node-check): New test.
---
 test/src/treesit-tests.el | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/test/src/treesit-tests.el b/test/src/treesit-tests.el
index 7fc810492b..9447b46f4e 100644
--- a/test/src/treesit-tests.el
+++ b/test/src/treesit-tests.el
@@ -505,6 +505,24 @@ visible_end.)"
                     (treesit-node-at (point)))
                    "]"))))
 
+(ert-deftest treesit-node-check ()
+  "Test `treesit-node-check'."
+  (skip-unless (treesit-language-available-p 'json))
+  (let (parser root-node array-node comment-node)
+    (progn
+      (insert "/* comment */ [1,  2, 3,4  ")
+      (setq parser (treesit-parser-create 'json))
+      (setq root-node (treesit-parser-root-node
+                       parser))
+      (setq comment-node (treesit-node-child root-node 0))
+      (setq array-node (treesit-node-child root-node 1)))
+
+    (should (treesit-node-check comment-node 'extra))
+    (should (treesit-node-check array-node 'has-error))
+    (should-error (treesit-node-check array-node 'xxx))
+    ;; TODO: Test for `missing'.
+    ))
+
 (ert-deftest treesit-misc ()
   "Misc helper functions."
   (let ((settings '((t 0 t)