From 2441d0118b498dfde9144a86628bdc6974324e49 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 5 Aug 2017 11:38:04 +0300 Subject: [PATCH] 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. --- test/lisp/files-tests.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) 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)) -- 2.39.2