* test/lisp/info-xref-tests.el (info-xref-test-emacs-manuals): New.

diff --git a/test/lisp/info-xref-tests.el b/test/lisp/info-xref-tests.el
index 7532befae0a5f3b42e798f7b3643d0f2d1f9ec5f..6d3a4618377feae92c0e7962b05ebd85480fd1e4 100644 (file)
--- 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