From 51eceb4238ac7b4ed48a454cc7cde67de599fe00 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Wed, 13 Dec 2017 17:03:05 -0800 Subject: [PATCH] Add a test related to GitHub-reference: https://github.com/jwiegley/use-package/issues/589 --- test/lisp/use-package/use-package-tests.el | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/test/lisp/use-package/use-package-tests.el b/test/lisp/use-package/use-package-tests.el index 59a041789cb..5039e21064c 100644 --- 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 "" -- 2.39.2