; Move describe-symbol test to its proper section

* test/lisp/help-fns-tests.el (help-fns-test-dangling-alias): Move test
to its proper section.

(cherry picked from commit 7fbdad01e510984e9166191191a9046a065dffd9)

diff --git a/test/lisp/help-fns-tests.el b/test/lisp/help-fns-tests.el
index 2429cd73513c94166fc893cdbbf81ae96e060038..8f04669f447bb8f10b6ffac243c104f12f92ee92 100644 (file)
--- a/test/lisp/help-fns-tests.el
+++ b/test/lisp/help-fns-tests.el
@@ -89,11 +89,6 @@ Return first line of the output of (describe-function-1 FUNC)."
   "No error when describing `menu-bar-open-mouse'."
   (should (stringp (help-fns-tests--describe-function 'menu-bar-open-mouse))))
 
-(ert-deftest help-fns-test-dangling-alias ()
-  "Make sure we don't burp on bogus aliases."
-  (let ((f (make-symbol "bogus-alias")))
-    (define-obsolete-function-alias f 'help-fns-test--undefined-function "past")
-    (describe-symbol f)))
 \f
 ;;; Test describe-function over functions with funny names
 (defun abc\\\[universal-argument\]b\`c\'d\\e\"f (x)
@@ -131,12 +126,18 @@ Return first line of the output of (describe-function-1 FUNC)."
     (goto-char (point-min))
     (should (looking-at "^font-lock-comment-face is "))))
 
-(defvar foo-test-map)
-(defvar help-fns-test--describe-keymap-foo)
+(ert-deftest help-fns-test-dangling-alias ()
+  "Make sure we don't burp on bogus aliases."
+  (let ((f (make-symbol "bogus-alias")))
+    (define-obsolete-function-alias f 'help-fns-test--undefined-function "past")
+    (describe-symbol f)))
 
 \f
 ;;; Tests for describe-keymap
 
+(defvar foo-test-map)
+(defvar help-fns-test--describe-keymap-foo)
+
 (defvar-keymap help-fns-test-map
   "a" 'test-cmd-a
   "b" 'test-cmd-b