]> code.delx.au - gnu-emacs/blobdiff - test/automated/core-elisp-tests.el
Merge from gnulib.
[gnu-emacs] / test / automated / core-elisp-tests.el
index 809be10bc02813c560fdf8f515c94ddeffcc55a8..1abaa4d7dec77153e31b6b883b9d02d60043eebb 100644 (file)
@@ -1,6 +1,6 @@
 ;;; core-elisp-tests.el --- Testing some core Elisp rules
 
-;; Copyright (C) 2013 Free Software Foundation, Inc.
+;; Copyright (C) 2013-2014 Free Software Foundation, Inc.
 
 ;; Author: Stefan Monnier <monnier@iro.umontreal.ca>
 ;; Keywords:
@@ -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 2 "doc" :group 'blah) c-e-x)
+                         c-e-x)
                    '(1 2)))))
 
 (provide 'core-elisp-tests)