aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
Diffstat (limited to 'test')
-rw-r--r--test/lisp/files-tests.el8
1 files changed, 8 insertions, 0 deletions
diff --git a/test/lisp/files-tests.el b/test/lisp/files-tests.el
index 9d456c512b0..80bbeb1bc54 100644
--- a/test/lisp/files-tests.el
+++ b/test/lisp/files-tests.el
@@ -243,5 +243,13 @@ be $HOME."
243 (concat "/:/:" subdir))))) 243 (concat "/:/:" subdir)))))
244 (delete-directory dir 'recursive)))) 244 (delete-directory dir 'recursive))))
245 245
246(ert-deftest files-tests--file-name-non-special--subprocess ()
247 "Check that Bug#25949 is fixed."
248 (skip-unless (executable-find "true"))
249 (should (eq (let ((default-directory "/:/")) (process-file "true")) 0))
250 (should (processp (let ((default-directory "/:/"))
251 (start-file-process "foo" nil "true"))))
252 (should (eq (let ((default-directory "/:/")) (shell-command "true")) 0)))
253
246(provide 'files-tests) 254(provide 'files-tests)
247;;; files-tests.el ends here 255;;; files-tests.el ends here