[elpa] externals/compat 0aa7446ccf 10/12: Test func-arity

[ELPA Syncer]

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

    Test func-arity
---
 compat-tests.el | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

diff --git a/compat-tests.el b/compat-tests.el
index 5d82569bba..2b2a3e259e 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -1693,17 +1693,17 @@
                  ))
     (should-not (string-match-p regexp-unmatchable str))))
 
-;; TODO func-arity seems broken
-;; (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 '(1 . 1) 'identity)
-;;   (should-equal '(0 . many) 'ignore)
-;;   (should-equal '(2 . many) 'defun)
-;;   (should-equal '(2 . 3) 'defalias)
-;;   (should-equal '(1 . unevalled) 'defvar))
+(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 '(1 . 1) 'identity)
+  (should-equal '(0 . many) 'ignore)
+  (should-equal '(2 . many) 'defun)
+  (should-equal '(2 . 3) 'defalias)
+  ;;(should-equal '(1 . unevalled) 'defvar)
+  )
 
 ;; TODO fix broken test
 ;;(ert-deftest directory-files-recursively