branch: externals/compat
commit 814471978007d233dcb17624da9dd7295d9a010c
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Additional func-arity tests
---
compat-tests.el | 11 +++++------
1 file changed, 5 insertions(+), 6 deletions(-)
diff --git a/compat-tests.el b/compat-tests.el
index 12531e2116..a78a8c0ad9 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -1694,16 +1694,15 @@
(should-not (string-match-p regexp-unmatchable str))))
(ert-deftest func-arity ()
- ;;(should-equal '(0 . 0) (func-arity (lambda ()))))
- ;;(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 '(0 . 0) (func-arity (lambda ())))
+ (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) (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))
- )
+ (should-equal '(1 . unevalled) (func-arity 'defvar)))
;; TODO fix broken test
;;(ert-deftest directory-files-recursively
