diff options
| author | Mekeor Melire | 2024-02-09 23:30:52 +0100 |
|---|---|---|
| committer | Eli Zaretskii | 2024-02-11 09:25:19 +0200 |
| commit | 30b4d902326546ca2b383d56caadbe0adaf0fe89 (patch) | |
| tree | 6e4fa4c55dd448e063c30e4c23d1e147626ab211 /test | |
| parent | e67e7185ce81e59c90741f92c2ba3209412f417e (diff) | |
| download | emacs-30b4d902326546ca2b383d56caadbe0adaf0fe89.tar.gz emacs-30b4d902326546ca2b383d56caadbe0adaf0fe89.zip | |
In Info-url-alist, add .html extension to %e format-sequence
* lisp/info.el (Info-url-for-node): Implement the change. (Bug#68970)
(Info-url-alist): Document the change.
* test/lisp/info-tests.el (test-info-urls): Adjust tests to account for
the change and add a test for the "Top" node.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/info-tests.el | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/test/lisp/info-tests.el b/test/lisp/info-tests.el index 0dfdbf417e8..8020a7419cf 100644 --- a/test/lisp/info-tests.el +++ b/test/lisp/info-tests.el | |||
| @@ -28,18 +28,20 @@ | |||
| 28 | (require 'ert-x) | 28 | (require 'ert-x) |
| 29 | 29 | ||
| 30 | (ert-deftest test-info-urls () | 30 | (ert-deftest test-info-urls () |
| 31 | (should (equal (Info-url-for-node "(tramp)Top") | ||
| 32 | "https://www.gnu.org/software/emacs/manual/html_node/tramp/")) | ||
| 31 | (should (equal (Info-url-for-node "(emacs)Minibuffer") | 33 | (should (equal (Info-url-for-node "(emacs)Minibuffer") |
| 32 | "https://www.gnu.org/software/emacs/manual/html_node/emacs/Minibuffer")) | 34 | "https://www.gnu.org/software/emacs/manual/html_node/emacs/Minibuffer.html")) |
| 33 | (should (equal (Info-url-for-node "(emacs)Minibuffer File") | 35 | (should (equal (Info-url-for-node "(emacs)Minibuffer File") |
| 34 | "https://www.gnu.org/software/emacs/manual/html_node/emacs/Minibuffer-File")) | 36 | "https://www.gnu.org/software/emacs/manual/html_node/emacs/Minibuffer-File.html")) |
| 35 | (should (equal (Info-url-for-node "(elisp)Backups and Auto-Saving") | 37 | (should (equal (Info-url-for-node "(elisp)Backups and Auto-Saving") |
| 36 | "https://www.gnu.org/software/emacs/manual/html_node/elisp/Backups-and-Auto_002dSaving")) | 38 | "https://www.gnu.org/software/emacs/manual/html_node/elisp/Backups-and-Auto_002dSaving.html")) |
| 37 | (should (equal (Info-url-for-node "(eintr)car & cdr") | 39 | (should (equal (Info-url-for-node "(eintr)car & cdr") |
| 38 | "https://www.gnu.org/software/emacs/manual/html_node/eintr/car-_0026-cdr")) | 40 | "https://www.gnu.org/software/emacs/manual/html_node/eintr/car-_0026-cdr.html")) |
| 39 | (should (equal (Info-url-for-node "(emacs-mime)\tIndex") | 41 | (should (equal (Info-url-for-node "(emacs-mime)\tIndex") |
| 40 | "https://www.gnu.org/software/emacs/manual/html_node/emacs-mime/Index")) | 42 | "https://www.gnu.org/software/emacs/manual/html_node/emacs-mime/Index.html")) |
| 41 | (should (equal (Info-url-for-node "(gnus) Don't Panic") | 43 | (should (equal (Info-url-for-node "(gnus) Don't Panic") |
| 42 | "https://www.gnu.org/software/emacs/manual/html_node/gnus/Don_0027t-Panic")) | 44 | "https://www.gnu.org/software/emacs/manual/html_node/gnus/Don_0027t-Panic.html")) |
| 43 | (should-error (Info-url-for-node "(nonexistent)Example"))) | 45 | (should-error (Info-url-for-node "(nonexistent)Example"))) |
| 44 | 46 | ||
| 45 | ;;; info-tests.el ends here | 47 | ;;; info-tests.el ends here |