branch: externals/compat
commit 6b40fc1389766411c300ac9a06fcc79234ea14d8
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
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
