diff options
| author | Joe Wreschnig <joe.wreschnig@gmail.com> | 2017-06-14 20:24:01 +0200 |
|---|---|---|
| committer | Joe Wreschnig <joe.wreschnig@gmail.com> | 2017-07-08 15:32:46 +0200 |
| commit | ca83649a324128fafa33fad2dc58f54eb1c0480c (patch) | |
| tree | a62042e45b6dbcd32f36f912f6a48a54d8172740 /test/lisp/use-package | |
| parent | 463e38b1887e27a9d23c9036f60accc30db0d89e (diff) | |
| download | emacs-ca83649a324128fafa33fad2dc58f54eb1c0480c.tar.gz | |
Allow `:diminish` with no arguments
When given no arguments, have :diminish assume it should diminish a
mode named after the current package (the package’s name, with “-mode”
appended, if it’s not already) to an empty string.
When given only a string to diminish an implicit package name to, do
not append “-mode” to the package name if it already ends with
it. (This is a backwards-incompatible change if someone was
diminishing a package named “foo-mode” implementing `foo-mode-mode`.)
Add test cases for `use-package-normalize-diminish`.
This addresses some of the redundancy mentioned in issue https://github.com/jwiegley/use-package/issues/288.
Diffstat (limited to 'test/lisp/use-package')
| -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 625e95ca587..c52c3810439 100644 --- a/test/lisp/use-package/use-package-tests.el +++ b/test/lisp/use-package/use-package-tests.el @@ -72,6 +72,18 @@ ) +(ert-deftest use-package-normalize-diminish () + (should (equal (use-package-normalize-diminish 'foopkg :diminish nil) + '(foopkg-mode))) + (should (equal (use-package-normalize-diminish 'foopkg :diminish 'bar) + '(bar))) + (should (equal (use-package-normalize-diminish 'foopkg :diminish "bar") + '((foopkg-mode . "bar")))) + (should (equal (use-package-normalize-diminish 'foopkg :diminish 'foo-mode) + '(foo-mode))) + (should (equal (use-package-normalize-diminish 'foopkg :diminish '(foo . "bar")) + '((foo . "bar"))))) + ;; Local Variables: ;; indent-tabs-mode: nil ;; no-byte-compile: t |