diff options
| author | Michael Albinus | 2020-05-06 10:36:43 +0200 |
|---|---|---|
| committer | Michael Albinus | 2020-05-06 10:36:43 +0200 |
| commit | d9e10a1d1a56b8740a276a3fa418f628f79790d0 (patch) | |
| tree | 0474bd7a5e37e0165e73ba5818cd1b0316fe6112 /test/lisp | |
| parent | c4adfbae24d920f0ce62cb88b988219348d1ec73 (diff) | |
| download | emacs-d9e10a1d1a56b8740a276a3fa418f628f79790d0.tar.gz emacs-d9e10a1d1a56b8740a276a3fa418f628f79790d0.zip | |
process-file in Tramp must return exit code (Bug#41099)
* lisp/net/tramp-adb.el (tramp-adb-send-command-and-check): Add optional
argument EXIT-STATUS.
(tramp-adb-handle-process-file): Use it.
* lisp/net/tramp-sh.el (tramp-send-command-and-check): Add optional
argument EXIT-STATUS.
(tramp-sh-handle-process-file): Use it. (Bug#41099)
* test/lisp/net/tramp-tests.el (tramp-test28-process-file): Adapt test.
Diffstat (limited to 'test/lisp')
| -rw-r--r-- | test/lisp/net/tramp-tests.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el index 28d20e39f8c..462539a7c17 100644 --- a/test/lisp/net/tramp-tests.el +++ b/test/lisp/net/tramp-tests.el | |||
| @@ -4208,6 +4208,7 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'." | |||
| 4208 | (should (zerop (process-file "true"))) | 4208 | (should (zerop (process-file "true"))) |
| 4209 | (should-not (zerop (process-file "false"))) | 4209 | (should-not (zerop (process-file "false"))) |
| 4210 | (should-not (zerop (process-file "binary-does-not-exist"))) | 4210 | (should-not (zerop (process-file "binary-does-not-exist"))) |
| 4211 | (should (= 42 (process-file "sh" nil nil nil "-c" "exit 42"))) | ||
| 4211 | (with-temp-buffer | 4212 | (with-temp-buffer |
| 4212 | (write-region "foo" nil tmp-name) | 4213 | (write-region "foo" nil tmp-name) |
| 4213 | (should (file-exists-p tmp-name)) | 4214 | (should (file-exists-p tmp-name)) |