From ae0d24368189025379a249ee31b3999c25645934 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Thu, 7 Dec 2017 22:04:24 -0800 Subject: [PATCH] Add another :bind test --- test/lisp/use-package/use-package-tests.el | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/test/lisp/use-package/use-package-tests.el b/test/lisp/use-package/use-package-tests.el index 2f4a7b897c4..0b40fb582ad 100644 --- a/test/lisp/use-package/use-package-tests.el +++ b/test/lisp/use-package/use-package-tests.el @@ -680,6 +680,24 @@ (ignore (bind-keys :package foo ("C-c r" . browse-at-remote)))))) +(ert-deftest use-package-test/:bind-8 () + (match-expansion + (use-package foo + :ensure + :bind (:map foo-map + (("C-c r" . foo) + ("C-c r" . bar)))) + `(progn + (use-package-ensure-elpa 'foo '(t) 'nil) + (unless (fboundp 'foo) + (autoload #'foo "foo" nil t)) + (unless (fboundp 'bar) + (autoload #'bar "foo" nil t)) + (ignore + (bind-keys :package foo :map foo-map + ("C-c r" . foo) + ("C-c r" . bar)))))) + (ert-deftest use-package-test/:bind*-1 () (match-expansion (use-package foo :bind* ("C-k" . key)) -- 2.39.2