From 7e9c2e295283b4dcf4f88cf25a094e37731543fc Mon Sep 17 00:00:00 2001 From: Yuan Fu Date: Mon, 14 Nov 2022 00:54:54 -0800 Subject: [PATCH] ; * 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 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) -- 2.39.5