* 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)

1 files changed, 2 insertions, 1 deletions

diff --git a/test/lisp/files-tests.el b/test/lisp/files-tests.el
index 5f42b904cca..4e1d20edf05 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)