emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master d664969544b: Fix tree-sitter test


From: Yuan Fu
Subject: master d664969544b: Fix tree-sitter test
Date: Thu, 13 Apr 2023 22:20:48 -0400 (EDT)

branch: master
commit d664969544b13fe93a548c9908ce566f9b5cde9c
Author: Yuan Fu <casouri@gmail.com>
Commit: Yuan Fu <casouri@gmail.com>

    Fix tree-sitter test
    
    * test/src/treesit-tests.el:
    (treesit-search-forward-predicate-invalid-predicate): Fix test.
---
 test/src/treesit-tests.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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."



reply via email to

[Prev in Thread] Current Thread [Next in Thread]