From 1f21d308949823041db6f828d6c080c2a564fb05 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 2 Aug 2013 18:43:30 -0700 Subject: [PATCH] * test/automated/core-elisp-tests.el (core-elisp-tests): Fix defcustom. --- test/ChangeLog | 2 ++ test/automated/core-elisp-tests.el | 4 +++- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/test/ChangeLog b/test/ChangeLog index 0b42f5d2be3..ae66b25897e 100644 --- a/test/ChangeLog +++ b/test/ChangeLog @@ -1,5 +1,7 @@ 2013-08-03 Glenn Morris + * automated/core-elisp-tests.el (core-elisp-tests): Fix defcustom. + * automated/icalendar-tests.el (icalendar-tests--test-export) (icalendar-tests--test-import): Use getenv/setenv rather than set-time-zone-rule. diff --git a/test/automated/core-elisp-tests.el b/test/automated/core-elisp-tests.el index 809be10bc02..bb76ee25c77 100644 --- a/test/automated/core-elisp-tests.el +++ b/test/automated/core-elisp-tests.el @@ -31,7 +31,9 @@ ;; is properly initialized. (should (equal (list (let ((c-e-x 1)) (defvar c-e-x 2) c-e-x) c-e-x) '(1 2))) - (should (equal (list (let ((c-e-x 1)) (defcustom c-e-x 2) c-e-x) c-e-x) + (should (equal (list (let ((c-e-x 1)) + (defcustom c-e-x "doc" 2 :group 'blah) c-e-x) + c-e-x) '(1 2))))) (provide 'core-elisp-tests) -- 2.39.2