From: Michael Albinus <michael.albinus@gmx.de>
Date: Mon, 10 Jul 2023 16:11:24 +0000 (+0200)
Subject: Adapt Tramp test
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=31cae9d9d6a00a33fb4a18d9725ff4d6b103c176;p=emacs.git

Adapt Tramp test

* test/lisp/net/tramp-tests.el (tramp-test33-environment-variables):
Adapt test.
---

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"