diff options
Diffstat (limited to 'test/lisp/info-xref-tests.el')
| -rw-r--r-- | test/lisp/info-xref-tests.el | 18 |
1 files changed, 18 insertions, 0 deletions
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 |