From: Michael Albinus Date: Sat, 3 Feb 2018 19:08:29 +0000 (+0100) Subject: * test/lisp/files-tests.el (files-tests--with-temp-non-special): X-Git-Tag: emacs-27.0.90~5729 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a057771a5af5c9f33ab08a1a55676f3b0ddbee74;p=emacs.git * 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) --- 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)