Allow :bind ("C-c C-c" . (lambda () (ding))) and #'(lambda ...)

Fixes https://github.com/jwiegley/use-package/issues/333
Fixes https://github.com/jwiegley/use-package/issues/461

1 files changed, 14 insertions, 0 deletions

diff --git a/test/lisp/use-package/use-package-tests.el b/test/lisp/use-package/use-package-tests.el
index c52c3810439..830ca644990 100644
--- a/test/lisp/use-package/use-package-tests.el
+++ b/test/lisp/use-package/use-package-tests.el
@@ -84,6 +84,20 @@
   (should (equal (use-package-normalize-diminish 'foopkg :diminish '(foo . "bar"))
                  '((foo . "bar")))))
 
+(ert-deftest use-package--recognize-function-test ()
+  (should (use-package--recognize-function 'sym))
+  (should (use-package--recognize-function #'sym))
+  (should (use-package--recognize-function (lambda () ...)))
+  (should (use-package--recognize-function '(lambda () ...)))
+  (should (use-package--recognize-function #'(lambda () ...))))
+
+(ert-deftest use-package--normalize-function-test ()
+  (should (equal (use-package--normalize-function 'sym) 'sym))
+  (should (equal (use-package--normalize-function #'sym) 'sym))
+  (should (equal (use-package--normalize-function (lambda () ...)) (lambda () ...)))
+  (should (equal (use-package--normalize-function '(lambda () ...)) (lambda () ...)))
+  (should (equal (use-package--normalize-function #'(lambda () ...)) (lambda () ...))))
+
 ;; Local Variables:
 ;; indent-tabs-mode: nil
 ;; no-byte-compile: t