emacs-elpa-diffs
[Top][All Lists]
Advanced

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

[elpa] externals/compat 6b40fc1389 11/12: Fix func-arity test


From: ELPA Syncer
Subject: [elpa] externals/compat 6b40fc1389 11/12: Fix func-arity test
Date: Wed, 4 Jan 2023 12:57:36 -0500 (EST)

branch: externals/compat
commit 6b40fc1389766411c300ac9a06fcc79234ea14d8
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Fix func-arity test
---
 compat-tests.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/compat-tests.el b/compat-tests.el
index 2b2a3e259e..12531e2116 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -1698,11 +1698,11 @@
   ;;(should-equal '(1 . 1) (func-arity (lambda (x) x))))
 ;;  (should-equal '(1 . 2) (func-arity (lambda (x &optional _) x))))
     ;;(should-equal '(0 . many) (func-arity (lambda (&rest _)))))
-  (should-equal '(1 . 1) 'identity)
-  (should-equal '(0 . many) 'ignore)
-  (should-equal '(2 . many) 'defun)
-  (should-equal '(2 . 3) 'defalias)
-  ;;(should-equal '(1 . unevalled) 'defvar)
+  (should-equal '(1 . 1) (func-arity 'identity))
+  (should-equal '(0 . many) (func-arity 'ignore))
+  (should-equal '(2 . many) (func-arity 'defun))
+  (should-equal '(2 . 3) (func-arity 'defalias))
+  ;;(should-equal '(1 . unevalled) (func-arity 'defvar))
   )
 
 ;; TODO fix broken test



reply via email to

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