From fbc4a3c7de60d766c4b7c639985fecddc4f60604 Mon Sep 17 00:00:00 2001
From: Eli Zaretskii <eliz@gnu.org>
Date: Thu, 11 Jan 2024 17:27:04 +0200
Subject: [PATCH] Fix man-tests.el
* test/lisp/man-tests.el (man-tests-Man-translate-references): Fix
test for MS-Windows and MS-DOS.
---
test/lisp/man-tests.el | 12 +++++++++---
1 file changed, 9 insertions(+), 3 deletions(-)
diff --git a/test/lisp/man-tests.el b/test/lisp/man-tests.el
index 11f5f805e43..ecda189b6b2 100644
--- a/test/lisp/man-tests.el
+++ b/test/lisp/man-tests.el
@@ -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)
--
2.39.5