From 7a562f10cbdcf13e1f37a2aa964f63c7f7cdb1a3 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Thu, 30 Nov 2017 18:37:27 -0800 Subject: [PATCH] Add test for use-package-test-normalize/:ensure --- test/lisp/use-package/use-package-tests.el | 10 ++++++++++ 1 file changed, 10 insertions(+) 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 -- 2.39.2