From: John Wiegley <johnw@newartisans.com>
Date: Fri, 1 Dec 2017 02:37:27 +0000 (-0800)
Subject: Add test for use-package-test-normalize/:ensure
X-Git-Tag: emacs-29.0.90~1306^2~15^2~212
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7a562f10cbdcf13e1f37a2aa964f63c7f7cdb1a3;p=emacs.git

Add test for use-package-test-normalize/:ensure
---

diff --git a/test/lisp/use-package/use-package-tests.el b/test/lisp/use-package/use-package-tests.el
index 43ecb316aca..e27d7f28851 100644
--- a/test/lisp/use-package/use-package-tests.el
+++ b/test/lisp/use-package/use-package-tests.el
@@ -85,6 +85,16 @@
 ;;   (should (equal (macroexpand (use-package))
 ;;                  '())))
 
+(ert-deftest use-package-test-normalize/:ensure ()
+  (flet ((norm (&rest args)
+               (apply #'use-package-normalize/:ensure
+                      'foopkg :ensure args)))
+    (should (equal (norm '(t)) t))
+    (should (equal (norm '(nil)) nil))
+    (should (equal (norm '(sym)) 'sym))
+    (should-error (norm '(1)))
+    (should-error (norm '("Hello")))))
+
 (ert-deftest use-package-test/:ensure ()
   (let ((use-package-always-ensure nil))
     (match-expansion