From 6da8d069757fd26ee537704a9f0dea24dc5e00b8 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Mon, 5 May 2014 17:33:07 -0400 Subject: * lisp/help-fns.el (describe-function-1): Test for an autoload before a macro since `macrop' works on autoloads. * test/automated/help-fns.el: New file. Fixes: debbugs:17410 --- test/automated/help-fns.el | 37 +++++++++++++++++++++++++++++++++++++ 1 file changed, 37 insertions(+) create mode 100644 test/automated/help-fns.el (limited to 'test/automated/help-fns.el') diff --git a/test/automated/help-fns.el b/test/automated/help-fns.el new file mode 100644 index 00000000000..153de7f9e30 --- /dev/null +++ b/test/automated/help-fns.el @@ -0,0 +1,37 @@ +;;; help-fns.el --- tests for help-fns.el + +;; Copyright (C) 2014 Free Software Foundation, Inc. + +;; Maintainer: emacs-devel@gnu.org + +;; This file is part of GNU Emacs. + +;; GNU Emacs is free software: you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs. If not, see . + +;;; Commentary: + +;;; Code: + +(require 'ert) + +(autoload 'help-fns-test--macro "help-fns" nil nil t) + +(ert-deftest help-fns-test-bug17410 () + "Test for http://debbugs.gnu.org/17410 ." + (describe-function 'help-fns-test--macro) + (with-current-buffer "*Help*" + (goto-char (point-min)) + (should (search-forward "autoloaded Lisp macro" (line-end-position))))) + +;;; help-fns.el ends here -- cgit v1.2.3