From: Yuan Fu <casouri@gmail.com>
Date: Fri, 14 Apr 2023 02:18:52 +0000 (-0700)
Subject: Fix tree-sitter test
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d664969544b13fe93a548c9908ce566f9b5cde9c;p=emacs.git

Fix tree-sitter test

* test/src/treesit-tests.el:
(treesit-search-forward-predicate-invalid-predicate): Fix test.
---

diff --git a/test/src/treesit-tests.el b/test/src/treesit-tests.el
index 34f9f15beaa..ecdee3c26e4 100644
--- a/test/src/treesit-tests.el
+++ b/test/src/treesit-tests.el
@@ -378,13 +378,13 @@ BODY is the test body."
   "Test tree-sitter's ability to detect invalid predicates."
   (skip-unless (treesit-language-available-p 'json))
   (treesit--ert-search-setup
-   (dolist (pred '( 1 (not 1) (not "2" "3") (or) (or 1)))
+   (dolist (pred '( 1 (not 1) (not "2" "3") (or) (or 1) 'a))
      (should-error (treesit-search-forward (treesit-node-child array 0)
                                            pred)
                    :type 'treesit-invalid-predicate))
    (should-error (treesit-search-forward (treesit-node-child array 0)
-                                         'not-a-function)
-                 :type 'void-function)))
+                                         (lambda (node) (car node)))
+                 :type 'wrong-type-argument)))
 
 (ert-deftest treesit-cursor-helper-with-missing-node ()
   "Test treesit_cursor_helper with a missing node."