Add a test related to

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

diff --git a/test/lisp/use-package/use-package-tests.el b/test/lisp/use-package/use-package-tests.el
index 59a041789cba7c6a9fd7a8b5b4307700c3890e11..5039e21064c3d063c00663cffb6fd690882e4147 100644 (file)
--- a/test/lisp/use-package/use-package-tests.el
+++ b/test/lisp/use-package/use-package-tests.el
@@ -1849,6 +1849,19 @@
       (bind-keys :package bug
                  ("C-b" . beta)))))
 
+(ert-deftest use-package-test/589 ()
+  (let ((use-package-verbose t)
+        (use-package-expand-minimally t)
+        debug-on-error
+        warnings)
+    (flet ((display-warning (_ msg _) (push msg warnings)))
+      (progn
+        (macroexpand-1
+         '(use-package ediff :defer t (setq my-var t)))
+        (should (= (and (> (length warnings) 0)
+                        (string-match ":defer wants exactly one argument"
+                                      (car warnings))) 44))))))
+
 (ert-deftest bind-key/:prefix-map ()
   (match-expansion
    (bind-keys :prefix "<f1>"