diff options
| author | John Wiegley | 2017-12-13 17:03:05 -0800 |
|---|---|---|
| committer | John Wiegley | 2017-12-13 17:03:05 -0800 |
| commit | 51eceb4238ac7b4ed48a454cc7cde67de599fe00 (patch) | |
| tree | 831804bbce80eeaa0d867476662f17019b438171 /test/lisp/use-package | |
| parent | 31fa2f24a106f2e1fe433713c1e867d27788774e (diff) | |
| download | emacs-51eceb4238ac7b4ed48a454cc7cde67de599fe00.tar.gz emacs-51eceb4238ac7b4ed48a454cc7cde67de599fe00.zip | |
Add a test related to
GitHub-reference: https://github.com/jwiegley/use-package/issues/589
Diffstat (limited to 'test/lisp/use-package')
| -rw-r--r-- | test/lisp/use-package/use-package-tests.el | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/test/lisp/use-package/use-package-tests.el b/test/lisp/use-package/use-package-tests.el index 59a041789cb..5039e21064c 100644 --- a/test/lisp/use-package/use-package-tests.el +++ b/test/lisp/use-package/use-package-tests.el | |||
| @@ -1849,6 +1849,19 @@ | |||
| 1849 | (bind-keys :package bug | 1849 | (bind-keys :package bug |
| 1850 | ("C-b" . beta))))) | 1850 | ("C-b" . beta))))) |
| 1851 | 1851 | ||
| 1852 | (ert-deftest use-package-test/589 () | ||
| 1853 | (let ((use-package-verbose t) | ||
| 1854 | (use-package-expand-minimally t) | ||
| 1855 | debug-on-error | ||
| 1856 | warnings) | ||
| 1857 | (flet ((display-warning (_ msg _) (push msg warnings))) | ||
| 1858 | (progn | ||
| 1859 | (macroexpand-1 | ||
| 1860 | '(use-package ediff :defer t (setq my-var t))) | ||
| 1861 | (should (= (and (> (length warnings) 0) | ||
| 1862 | (string-match ":defer wants exactly one argument" | ||
| 1863 | (car warnings))) 44)))))) | ||
| 1864 | |||
| 1852 | (ert-deftest bind-key/:prefix-map () | 1865 | (ert-deftest bind-key/:prefix-map () |
| 1853 | (match-expansion | 1866 | (match-expansion |
| 1854 | (bind-keys :prefix "<f1>" | 1867 | (bind-keys :prefix "<f1>" |