From c3b9cc2403a4a8773b26c74d79d4090cdee2cf55 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Thu, 30 Nov 2017 10:38:01 -0800 Subject: [PATCH] Add two new tests --- test/lisp/use-package/use-package-tests.el | 30 ++++++++++++++++++++++ 1 file changed, 30 insertions(+) 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)) ;; '()))) -- 2.39.2