masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-05 11:49:37 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add more tests related to issue

Browse source 
GitHub-reference: https://github.com/jwiegley/use-package/issues/572
This commit is contained in:
John Wiegley 2017-12-13 17:02:55 -08:00
parent 4aa9b0cd6a
commit 31fa2f24a1
1 changed files with 24 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

25
test/lisp/use-package/use-package-tests.el
View file

@ -1762,7 +1762,7 @@
(when (symbol-value 'notmuch-command) (when (symbol-value 'notmuch-command)
(require 'notmuch nil nil)))))))) (require 'notmuch nil nil))))))))
(ert-deftest use-package-test/572 () (ert-deftest use-package-test/572-1 ()
(let ((use-package-always-defer t)) (let ((use-package-always-defer t))
(match-expansion (match-expansion
(use-package auth-password-store (use-package auth-password-store
@ -1772,6 +1772,29 @@
`(eval-after-load 'auth-source `(eval-after-load 'auth-source
'(setq auth-sources '(password-store)))))) '(setq auth-sources '(password-store))))))
(ert-deftest use-package-test/572-2 ()
(let ((use-package-always-defer t))
(match-expansion
(use-package ivy-hydra :after ivy)
`nil)))
(ert-deftest use-package-test/572-3 ()
(let ((use-package-always-defer t)
(use-package-defaults
(let ((defaults (copy-alist use-package-defaults)))
(setcdr (assq :defer defaults)
'(use-package-always-defer
(lambda (name args)
(and use-package-always-defer
(not (plist-member args :after))
(not (plist-member args :defer))
(not (plist-member args :demand))))))
defaults)))
(match-expansion
(use-package ivy-hydra :after ivy)
`(eval-after-load 'ivy
'(require 'ivy-hydra nil nil)))))
(ert-deftest use-package-test/575-1 () (ert-deftest use-package-test/575-1 ()
(match-expansion (match-expansion
(use-package helm (use-package helm