diff options
| -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)) |