From: Basil L. Contovounesios <contovob@tcd.ie>
Date: Mon, 10 Apr 2023 09:42:09 +0000 (+0100)
Subject: End default-directory with slash in eglot-tests
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ba7ef9699ff21667f8b242e294616f0a255ede22;p=emacs.git

End default-directory with slash in eglot-tests

* test/lisp/progmodes/eglot-tests.el (eglot--call-with-fixture):
Separate prefix from random part of temporary file name.  Ensure
default-directory ends with a directory separator (bug#61637).
---

diff --git a/test/lisp/progmodes/eglot-tests.el b/test/lisp/progmodes/eglot-tests.el
index 0486c938558..ad0a411189f 100644
--- a/test/lisp/progmodes/eglot-tests.el
+++ b/test/lisp/progmodes/eglot-tests.el
@@ -85,8 +85,8 @@ directory hierarchy."
 
 (defun eglot--call-with-fixture (fixture fn)
   "Helper for `eglot--with-fixture'.  Run FN under FIXTURE."
-  (let* ((fixture-directory (make-nearby-temp-file "eglot--fixture" t))
-         (default-directory fixture-directory)
+  (let* ((fixture-directory (make-nearby-temp-file "eglot--fixture-" t))
+         (default-directory (file-name-as-directory fixture-directory))
          created-files
          new-servers
          test-body-successful-p)