diff options
| author | John Wiegley | 2017-12-06 08:30:47 -0800 |
|---|---|---|
| committer | John Wiegley | 2017-12-06 08:30:47 -0800 |
| commit | e8a7ae1ea170f08a601e8f2028618816a91d9232 (patch) | |
| tree | db87ed0299fb712eda80f7323205e862e149f608 /test | |
| parent | 2a85d81c47ad330ab5c5aea86b4ed02907150f56 (diff) | |
| download | emacs-e8a7ae1ea170f08a601e8f2028618816a91d9232.tar.gz emacs-e8a7ae1ea170f08a601e8f2028618816a91d9232.zip | |
Add :bind test for a single cons cell
Relates to https://github.com/jwiegley/use-package/issues/566
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/use-package/use-package-tests.el | 12 |
1 files changed, 12 insertions, 0 deletions
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 @@ | |||
| 666 | :map my-map ("C-u" . key2) | 666 | :map my-map ("C-u" . key2) |
| 667 | :map my-map2 ("C-u" . key3)))))) | 667 | :map my-map2 ("C-u" . key3)))))) |
| 668 | 668 | ||
| 669 | (ert-deftest use-package-test/:bind-7 () | ||
| 670 | (match-expansion | ||
| 671 | (use-package foo | ||
| 672 | :ensure | ||
| 673 | :bind ("C-c r" . browse-at-remote)) | ||
| 674 | `(progn | ||
| 675 | (use-package-ensure-elpa 'foo '(t) 'nil) | ||
| 676 | (unless (fboundp 'browse-at-remote) | ||
| 677 | (autoload #'browse-at-remote "foo" nil t)) | ||
| 678 | (ignore | ||
| 679 | (bind-keys :package foo ("C-c r" . browse-at-remote)))))) | ||
| 680 | |||
| 669 | (ert-deftest use-package-test/:bind*-1 () | 681 | (ert-deftest use-package-test/:bind*-1 () |
| 670 | (match-expansion | 682 | (match-expansion |
| 671 | (use-package foo :bind* ("C-k" . key)) | 683 | (use-package foo :bind* ("C-k" . key)) |