diff options
author | Eli Zaretskii <eliz@gnu.org> | 2017-08-05 11:38:04 +0300 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2017-08-05 11:38:04 +0300 |
commit | 2441d0118b498dfde9144a86628bdc6974324e49 (patch) | |
tree | 3ce1b6efe906373d1e08684f6c350bc0eb34c42b /test/lisp/files-tests.el | |
parent | 19a41ce2dea79b4e5fb8baf1060b615bc03af63b (diff) | |
download | emacs-2441d0118b498dfde9144a86628bdc6974324e49.tar.gz |
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.
Diffstat (limited to 'test/lisp/files-tests.el')
-rw-r--r-- | test/lisp/files-tests.el | 9 |
1 files 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)) |