From: John Wiegley <johnw@newartisans.com>
Date: Thu, 30 Nov 2017 18:38:01 +0000 (-0800)
Subject: Add two new tests
X-Git-Tag: emacs-29.0.90~1306^2~15^2~219
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c3b9cc2403;p=emacs.git

Add two new tests
---

diff --git a/test/lisp/use-package/use-package-tests.el b/test/lisp/use-package/use-package-tests.el
index a0851b0dd57..4eb91165780 100644
--- a/test/lisp/use-package/use-package-tests.el
+++ b/test/lisp/use-package/use-package-tests.el
@@ -165,10 +165,40 @@
 ;;   (should (equal (macroexpand (use-package))
 ;;                  '())))
 
+(ert-deftest use-package-test-normalize/:hook ()
+  (should-error (use-package-normalize/:hook 'foopkg :hook nil))
+  (should (equal (use-package-normalize/:hook 'foopkg :hook '(bar))
+                 '((bar . foopkg))))
+  (should (equal (use-package-normalize/:hook 'foopkg :hook '((bar . baz)))
+                 '((bar . baz))))
+  (should (equal (use-package-normalize/:hook 'foopkg :hook '(((bar baz) . quux)))
+                 '(((bar baz) . quux))))
+  (should (equal (use-package-normalize/:hook 'foopkg :hook '(bar baz))
+                 '(((bar baz) . foopkg))))
+  (should (equal (use-package-normalize/:hook 'foopkg :hook '((bar baz) (quux bow)))
+                 '(((bar baz) . foopkg) ((quux bow) . foopkg))))
+  (should (equal (use-package-normalize/:hook 'foopkg :hook '((bar . baz) (quux . bow)))
+                 '((bar . baz) (quux . bow))))
+  (should (equal (use-package-normalize/:hook 'foopkg :hook '(((bar1 bar2) . baz)
+                                                              ((quux1 quux2) . bow)))
+                 '(((bar1 bar2) . baz)
+                   ((quux1 quux2) . bow)))))
+
 ;; (ert-deftest use-package-test/:hook ()
 ;;   (should (equal (macroexpand (use-package))
 ;;                  '())))
 
+(ert-deftest use-package-test-normalize/:custom ()
+  (should-error (use-package-normalize/:custom 'foopkg :custom nil))
+  (should-error (use-package-normalize/:custom 'foopkg :custom '(bar)))
+  ;; (should-error (use-package-normalize/:custom 'foopkg :custom '((foo bar baz quux))))
+  (should (equal (use-package-normalize/:custom 'foopkg :custom '(foo bar))
+                 '((foo bar))))
+  ;; (should-error (use-package-normalize/:custom 'foopkg :custom '(foo bar baz)))
+  ;; (should (equal (use-package-normalize/:custom 'foopkg :custom '(foo bar "baz"))
+  ;;                '((foo bar baz))))
+  )
+
 ;; (ert-deftest use-package-test/:custom ()
 ;;   (should (equal (macroexpand (use-package))
 ;;                  '())))