From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 5 Aug 2017 08:38:04 +0000 (+0300)
Subject: Fix files-tests.el for MS-Windows
X-Git-Tag: emacs-26.0.90~517^2~19
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2441d0118b498dfde9144a86628bdc6974324e49;p=emacs.git

Fix files-tests.el for MS-Windows

* test/lisp/files-tests.el
(files-tests--file-name-non-special--subprocess): Fix this test
for MS-Windows.
---

diff --git a/test/lisp/files-tests.el b/test/lisp/files-tests.el
index 59c1dbcbccd..7bfdca53e08 100644
--- a/test/lisp/files-tests.el
+++ b/test/lisp/files-tests.el
@@ -247,10 +247,11 @@ be $HOME."
 (ert-deftest files-tests--file-name-non-special--subprocess ()
   "Check that Bug#25949 is fixed."
   (skip-unless (executable-find "true"))
-  (should (eq (let ((default-directory "/:/")) (process-file "true")) 0))
-  (should (processp (let ((default-directory "/:/"))
-                      (start-file-process "foo" nil "true"))))
-  (should (eq (let ((default-directory "/:/")) (shell-command "true")) 0)))
+  (let ((defdir (if (memq system-type '(ms-dos windows-nt)) "/:c:/" "/:/")))
+    (should (eq (let ((default-directory defdir)) (process-file "true")) 0))
+    (should (processp (let ((default-directory defdir))
+                        (start-file-process "foo" nil "true"))))
+    (should (eq (let ((default-directory defdir)) (shell-command "true")) 0))))
 
 (defmacro files-tests--with-advice (symbol where function &rest body)
   (declare (indent 3))