From 2795417b4ee03968b78a057d9d917ba4df4147f3 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Mon, 10 Feb 2025 22:31:26 +0100 Subject: [PATCH] ; 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) --- test/lisp/help-fns-tests.el | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/test/lisp/help-fns-tests.el b/test/lisp/help-fns-tests.el index 2429cd73513..8f04669f447 100644 --- 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))) ;;; 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))) ;;; 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 -- 2.39.5