From: Yuan Fu <casouri@gmail.com>
Date: Mon, 14 Nov 2022 08:54:54 +0000 (-0800)
Subject: ; * test/src/treesit-tests.el (treesit-node-check): New test.
X-Git-Tag: emacs-29.0.90~1673
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7e9c2e295283b4dcf4f88cf25a094e37731543fc;p=emacs.git

; * test/src/treesit-tests.el (treesit-node-check): New test.
---

diff --git a/test/src/treesit-tests.el b/test/src/treesit-tests.el
index 7fc810492bc..9447b46f4e8 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)