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 34f9f15beaac0c1bf9653d34fb0684cb31123ec6..ecdee3c26e4dbd92a005e834f047ad2bf9c1b810 100644 (file)
--- 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."