Add :bind test for a single cons cell

Relates to https://github.com/jwiegley/use-package/issues/566

diff --git a/test/lisp/use-package/use-package-tests.el b/test/lisp/use-package/use-package-tests.el
index fa765ac6634db68395d5c7cba44d772384443183..05b8f3207ac20615dc854e968fbcaa177f8a9302 100644 (file)
--- a/test/lisp/use-package/use-package-tests.el
+++ b/test/lisp/use-package/use-package-tests.el
@@ -666,6 +666,18 @@
                   :map my-map ("C-u" . key2)
                   :map my-map2 ("C-u" . key3))))))
 
+(ert-deftest use-package-test/:bind-7 ()
+  (match-expansion
+   (use-package foo
+     :ensure
+     :bind ("C-c r" . browse-at-remote))
+   `(progn
+      (use-package-ensure-elpa 'foo '(t) 'nil)
+      (unless (fboundp 'browse-at-remote)
+        (autoload #'browse-at-remote "foo" nil t))
+      (ignore
+       (bind-keys :package foo ("C-c r" . browse-at-remote))))))
+
 (ert-deftest use-package-test/:bind*-1 ()
   (match-expansion
    (use-package foo :bind* ("C-k" . key))