[elpa] externals/compat 8144719780 12/12: Additional func-arity tests

[ELPA Syncer]

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

    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