From 31cae9d9d6a00a33fb4a18d9725ff4d6b103c176 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Mon, 10 Jul 2023 18:11:24 +0200 Subject: [PATCH] Adapt Tramp test * test/lisp/net/tramp-tests.el (tramp-test33-environment-variables): Adapt test. --- test/lisp/net/tramp-tests.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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." ;; Unset the variable. (let ((tramp-remote-process-environment (cons (concat envvar "=foo") tramp-remote-process-environment))) - ;; Set the initial value, we want to unset below. + ;; Refill the cache; we don't want to run into timeouts. + (file-truename default-directory) + ;; Check the initial value, we want to unset below. (should (string-match-p "foo" -- 2.39.2