diff options
| author | Michael Albinus | 2023-07-10 18:11:24 +0200 |
|---|---|---|
| committer | Michael Albinus | 2023-07-10 18:11:24 +0200 |
| commit | 31cae9d9d6a00a33fb4a18d9725ff4d6b103c176 (patch) | |
| tree | 4cf54163b7d47e554df5d9406b4df0dcae1197b8 | |
| parent | d1a2c2edc2c15d9018c143ad3f9c1131e0dfd5dd (diff) | |
| download | emacs-31cae9d9d6a00a33fb4a18d9725ff4d6b103c176.tar.gz emacs-31cae9d9d6a00a33fb4a18d9725ff4d6b103c176.zip | |
Adapt Tramp test
* test/lisp/net/tramp-tests.el (tramp-test33-environment-variables):
Adapt test.
| -rw-r--r-- | test/lisp/net/tramp-tests.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el index 51980e335e7..16afc0f477a 100644 --- a/test/lisp/net/tramp-tests.el +++ b/test/lisp/net/tramp-tests.el | |||
| @@ -6073,7 +6073,9 @@ INPUT, if non-nil, is a string sent to the process." | |||
| 6073 | ;; Unset the variable. | 6073 | ;; Unset the variable. |
| 6074 | (let ((tramp-remote-process-environment | 6074 | (let ((tramp-remote-process-environment |
| 6075 | (cons (concat envvar "=foo") tramp-remote-process-environment))) | 6075 | (cons (concat envvar "=foo") tramp-remote-process-environment))) |
| 6076 | ;; Set the initial value, we want to unset below. | 6076 | ;; Refill the cache; we don't want to run into timeouts. |
| 6077 | (file-truename default-directory) | ||
| 6078 | ;; Check the initial value, we want to unset below. | ||
| 6077 | (should | 6079 | (should |
| 6078 | (string-match-p | 6080 | (string-match-p |
| 6079 | "foo" | 6081 | "foo" |