diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/files-tests.el | 8 |
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 |