diff options
| author | Michael Albinus | 2020-02-05 11:41:14 +0100 |
|---|---|---|
| committer | Michael Albinus | 2020-02-05 11:41:14 +0100 |
| commit | 196da3017bc9b2fc6fecff0c0ce560e6c46b8a72 (patch) | |
| tree | 22ad638ecc55e61becc3c31d962678dafb9453de /test | |
| parent | 6b00600647c960831706f0c57cf29f53ec80551b (diff) | |
| download | emacs-196da3017bc9b2fc6fecff0c0ce560e6c46b8a72.tar.gz emacs-196da3017bc9b2fc6fecff0c0ce560e6c46b8a72.zip | |
Minor fix in tramp-test32-shell-command
* test/lisp/net/tramp-tests.el (tramp-test32-shell-command):
Set `default-directory'.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/net/tramp-tests.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el index 08f5c60e329..a47c60c65ba 100644 --- a/test/lisp/net/tramp-tests.el +++ b/test/lisp/net/tramp-tests.el | |||
| @@ -4541,6 +4541,7 @@ INPUT, if non-nil, is a string sent to the process." | |||
| 4541 | ;; but seems to work since Emacs 27.1 only. | 4541 | ;; but seems to work since Emacs 27.1 only. |
| 4542 | (when (and (tramp--test-sh-p) (tramp--test-emacs27-p)) | 4542 | (when (and (tramp--test-sh-p) (tramp--test-emacs27-p)) |
| 4543 | (let* ((async-shell-command-width 1024) | 4543 | (let* ((async-shell-command-width 1024) |
| 4544 | (default-directory tramp-test-temporary-file-directory) | ||
| 4544 | (cols (ignore-errors | 4545 | (cols (ignore-errors |
| 4545 | (read (tramp--test-shell-command-to-string-asynchronously | 4546 | (read (tramp--test-shell-command-to-string-asynchronously |
| 4546 | "tput cols"))))) | 4547 | "tput cols"))))) |
| @@ -5844,7 +5845,7 @@ Use the `ls' command." | |||
| 5844 | ;; Since Emacs 27.1. | 5845 | ;; Since Emacs 27.1. |
| 5845 | (skip-unless (fboundp 'file-system-info)) | 5846 | (skip-unless (fboundp 'file-system-info)) |
| 5846 | 5847 | ||
| 5847 | ;; `file-system-info' exists since Emacs 27. We don't want to see | 5848 | ;; `file-system-info' exists since Emacs 27.1. We don't want to see |
| 5848 | ;; compiler warnings for older Emacsen. | 5849 | ;; compiler warnings for older Emacsen. |
| 5849 | (let ((fsi (with-no-warnings | 5850 | (let ((fsi (with-no-warnings |
| 5850 | (file-system-info tramp-test-temporary-file-directory)))) | 5851 | (file-system-info tramp-test-temporary-file-directory)))) |