From e8a7ae1ea170f08a601e8f2028618816a91d9232 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Wed, 6 Dec 2017 08:30:47 -0800 Subject: [PATCH] Add :bind test for a single cons cell Relates to https://github.com/jwiegley/use-package/issues/566 --- test/lisp/use-package/use-package-tests.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/test/lisp/use-package/use-package-tests.el b/test/lisp/use-package/use-package-tests.el index fa765ac6634..05b8f3207ac 100644 --- 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)) -- 2.39.2