mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-07 15:21:46 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Glenn Morris 2018-03-19 16:57:28 -04:00
parent 7a7ee53dbd
commit 5c8c8f0a49
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
test/lisp/info-xref-tests.el
View File

@ -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