emacs-29 07c45f20fd3: Fix test in files-tests

[Michael Albinus]

branch: emacs-29
commit 07c45f20fd3828548d5f0c110034e9857a94ccaf
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>

    Fix test in files-tests
    
    * test/lisp/files-tests.el
    (files-tests-file-name-non-special-expand-file-name-tilde): Fix test.
---
 test/lisp/files-tests.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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)