Add more tests related to issue

GitHub-reference: https://github.com/jwiegley/use-package/issues/572

diff --git a/test/lisp/use-package/use-package-tests.el b/test/lisp/use-package/use-package-tests.el
index 70654daa3edf53033b8d7e20a21254b614b024b7..59a041789cba7c6a9fd7a8b5b4307700c3890e11 100644 (file)
--- 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