aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMichael Albinus2023-07-10 18:11:24 +0200
committerMichael Albinus2023-07-10 18:11:24 +0200
commit31cae9d9d6a00a33fb4a18d9725ff4d6b103c176 (patch)
tree4cf54163b7d47e554df5d9406b4df0dcae1197b8
parentd1a2c2edc2c15d9018c143ad3f9c1131e0dfd5dd (diff)
downloademacs-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.el4
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"