masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-05 19:59:38 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add another :bind test

Browse source
This commit is contained in:
John Wiegley 2017-12-07 22:04:24 -08:00
parent e6c54b54ab
commit ae0d243681
1 changed files with 18 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -680,6 +680,24 @@
(ignore (ignore
(bind-keys :package foo ("C-c r" . browse-at-remote)))))) (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 () (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))