mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-10 16:20:17 -08:00
Add two new tests
This commit is contained in:
parent
1e560c5140
commit
4efd355108
1 changed files with 32 additions and 0 deletions
32
up-tests.el
32
up-tests.el
|
|
@ -1219,6 +1219,38 @@
|
|||
(if (fboundp 'delight)
|
||||
(delight '((foo "bar" foo)))))))
|
||||
|
||||
(ert-deftest use-package-test/538 ()
|
||||
(match-expansion
|
||||
(use-package mu4e
|
||||
:commands (mu4e)
|
||||
:bind (("<f9>" . mu4e))
|
||||
:init
|
||||
:config
|
||||
(config))
|
||||
`(progn
|
||||
(unless
|
||||
(fboundp 'mu4e)
|
||||
(autoload #'mu4e "mu4e" nil t))
|
||||
(eval-after-load 'mu4e
|
||||
'(progn
|
||||
(config)
|
||||
t))
|
||||
(ignore
|
||||
(bind-keys :package mu4e
|
||||
("<f9>" . mu4e))))))
|
||||
|
||||
(ert-deftest use-package-test/539 ()
|
||||
(match-expansion
|
||||
(use-package foo
|
||||
:requires bar
|
||||
:after quux
|
||||
:ensure bow)
|
||||
`(progn
|
||||
(use-package-ensure-elpa 'foo 'bow 'nil)
|
||||
(when (featurep 'bar)
|
||||
(eval-after-load 'quux
|
||||
'(require 'foo nil nil))))))
|
||||
|
||||
;; Local Variables:
|
||||
;; indent-tabs-mode: nil
|
||||
;; no-byte-compile: t
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue