From 31fa2f24a106f2e1fe433713c1e867d27788774e Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Wed, 13 Dec 2017 17:02:55 -0800 Subject: [PATCH] Add more tests related to issue GitHub-reference: https://github.com/jwiegley/use-package/issues/572 --- test/lisp/use-package/use-package-tests.el | 25 +++++++++++++++++++++- 1 file changed, 24 insertions(+), 1 deletion(-) diff --git a/test/lisp/use-package/use-package-tests.el b/test/lisp/use-package/use-package-tests.el index 70654daa3ed..59a041789cb 100644 --- a/test/lisp/use-package/use-package-tests.el +++ b/test/lisp/use-package/use-package-tests.el @@ -1762,7 +1762,7 @@ (when (symbol-value 'notmuch-command) (require 'notmuch nil nil)))))))) -(ert-deftest use-package-test/572 () +(ert-deftest use-package-test/572-1 () (let ((use-package-always-defer t)) (match-expansion (use-package auth-password-store @@ -1772,6 +1772,29 @@ `(eval-after-load 'auth-source '(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 () (match-expansion (use-package helm -- 2.39.2