From: Michael Albinus <michael.albinus@gmx.de>
Date: Sun, 15 Oct 2023 10:26:43 +0000 (+0200)
Subject: Fix test in files-tests
X-Git-Tag: emacs-29.1.90~5
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=07c45f20fd3828548d5f0c110034e9857a94ccaf;p=emacs.git

Fix test in files-tests

* test/lisp/files-tests.el
(files-tests-file-name-non-special-expand-file-name-tilde): Fix test.
---

diff --git a/test/lisp/files-tests.el b/test/lisp/files-tests.el
index 8f6495a293c..78d469580ba 100644
--- a/test/lisp/files-tests.el
+++ b/test/lisp/files-tests.el
@@ -664,7 +664,8 @@ unquoted file names."
 
 (ert-deftest files-tests-file-name-non-special-expand-file-name-tilde ()
   (let ((process-environment
-         (cons (format "HOME=%s" temporary-file-directory) process-environment))
+         (cons (format "HOME=%s" (file-truename temporary-file-directory))
+               process-environment))
         abbreviated-home-dir)
     (files-tests--with-temp-non-special (tmpfile nospecial)
       (let (file-name-handler-alist)