mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-21 06:55:39 +00:00
Code Issues Releases Activity

Fix man-tests.el

Browse Source 
* test/lisp/man-tests.el (man-tests-Man-translate-references): Fix
test for MS-Windows and MS-DOS.
This commit is contained in:
Eli Zaretskii 2024-01-11 17:27:04 +02:00
parent aa26852f31
commit fbc4a3c7de
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
test/lisp/man-tests.el
View File

@ -163,15 +163,21 @@ DESCRIPTION
(ert-deftest man-tests-Man-translate-references ()
(should (equal (Man-translate-references "basename")
"basename"))
(if (memq system-type '(ms-dos windows-nt))
"\"basename\""
"basename")))
(should (equal (Man-translate-references "basename(3)")
"3 basename"))
(should (equal (Man-translate-references "basename(3v)")
"3v basename"))
(should (equal (Man-translate-references ";id")
"\\;id"))
(if (memq system-type '(ms-dos windows-nt))
"\";id\""
"\\;id")))
(should (equal (Man-translate-references "-k basename")
"-k basename")))
(if (memq system-type '(ms-dos windows-nt))
"\"-k\" \"basename\""
"-k basename"))))
(provide 'man-tests)