From: Eli Zaretskii <eliz@gnu.org>
Date: Thu, 11 Jan 2024 15:27:04 +0000 (+0200)
Subject: Fix man-tests.el
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fbc4a3c7de60d766c4b7c639985fecddc4f60604;p=emacs.git

Fix man-tests.el

* test/lisp/man-tests.el (man-tests-Man-translate-references): Fix
test for MS-Windows and MS-DOS.
---

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)