master fbc4a3c7de6: Fix man-tests.el

[Eli Zaretskii]

branch: master
commit fbc4a3c7de60d766c4b7c639985fecddc4f60604
Author: Eli Zaretskii <eliz@gnu.org>
Commit: Eli Zaretskii <eliz@gnu.org>

    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)