mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-09 05:01:02 -08:00
Code Issues Projects Releases Wiki Activity

Add :bind test for a single cons cell

Browse source 
Relates to https://github.com/jwiegley/use-package/issues/566
This commit is contained in:
John Wiegley 2017-12-06 08:30:47 -08:00
parent 2a85d81c47
commit e8a7ae1ea1
1 changed files with 12 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

12
test/lisp/use-package/use-package-tests.el
View file

@ -666,6 +666,18 @@
:map my-map ("C-u" . key2) :map my-map ("C-u" . key2)
:map my-map2 ("C-u" . key3)))))) :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 () (ert-deftest use-package-test/:bind*-1 ()
(match-expansion (match-expansion
(use-package foo :bind* ("C-k" . key)) (use-package foo :bind* ("C-k" . key))