[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 5c8c8f0: * test/lisp/info-xref-tests.el (info-xref-
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] master 5c8c8f0: * test/lisp/info-xref-tests.el (info-xref-test-emacs-manuals): New. |
Date: |
Mon, 19 Mar 2018 16:57:37 -0400 (EDT) |
branch: master
commit 5c8c8f0a49cf1823bc77db3c27baec6884f4d8d8
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>
* 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 7532bef..6d3a461 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 5c8c8f0: * test/lisp/info-xref-tests.el (info-xref-test-emacs-manuals): New.,
Glenn Morris <=