From 5c8c8f0a49cf1823bc77db3c27baec6884f4d8d8 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Mon, 19 Mar 2018 16:57:28 -0400 Subject: [PATCH] * test/lisp/info-xref-tests.el (info-xref-test-emacs-manuals): New. --- test/lisp/info-xref-tests.el | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/test/lisp/info-xref-tests.el b/test/lisp/info-xref-tests.el index 7532befae0a..6d3a4618377 100644 --- a/test/lisp/info-xref-tests.el +++ b/test/lisp/info-xref-tests.el @@ -144,4 +144,22 @@ text. (format "%s.info" (file-name-sans-extension tempfile2))))))) +(ert-deftest info-xref-test-emacs-manuals () + "Test that all internal links in the Emacs manuals work." + :tags '(:expensive-test) + (require 'info) + (let ((default-directory (car (Info-default-dirs))) + (Info-directory-list '("."))) + (skip-unless (file-readable-p "emacs.info")) + (info-xref-check-all) + (with-current-buffer info-xref-output-buffer + (goto-char (point-max)) + (should (search-backward "done" nil t)) + (re-search-forward "\\([0-9]+\\) bad" (line-end-position) t) + (should (string-match-p + " [0-9]\\{3,\\} good, 0 bad" + (buffer-substring-no-properties (line-beginning-position) + (line-end-position))))))) + + ;;; info-xref.el ends here