[Emacs-diffs] master a057771: * test/lisp/files-tests.el (files-tests--with-temp-non-special):

[Michael Albinus]

branch: master
commit a057771a5af5c9f33ab08a1a55676f3b0ddbee74
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    * test/lisp/files-tests.el (files-tests--with-temp-non-special):
    
    Expand `temporary-file-directory' by `file-truename', in case
    it is located on a symlinked directory.  (Bug#30327)
---
 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 5f42b90..4e1d20e 100644
--- a/test/lisp/files-tests.el
+++ b/test/lisp/files-tests.el
@@ -351,7 +351,8 @@ be invoked with the right arguments."
   (declare (indent 1) (debug ((symbolp symbolp &optional form) body)))
   (cl-check-type name symbol)
   (cl-check-type non-special-name symbol)
-  `(let* ((,name (make-temp-file "files-tests" ,dir-flag))
+  `(let* ((temporary-file-directory (file-truename temporary-file-directory))
+          (,name (make-temp-file "files-tests" ,dir-flag))
           (,non-special-name (file-name-quote ,name)))
      (unwind-protect
          (progn ,@body)