From: David Bremner <bremner@debian.org>
Date: Thu, 11 Apr 2024 00:56:12 -0700
Subject: test: force valid default directory, even if $HOME is invalid

Some build environments set $HOME to something invalid to catch builds
attempting to read or write from the user home directory. This messes
with start-process which first tries default-directory then falls back
to $HOME.
---
 tests/test-circe.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/tests/test-circe.el b/tests/test-circe.el
index 138fc72..acf8e2e 100644
--- a/tests/test-circe.el
+++ b/tests/test-circe.el
@@ -62,7 +62,8 @@
     (before-each
       (setq server-buffer (generate-new-buffer "*Test Server*"))
       (set-buffer server-buffer)
-      (circe-server-mode)
+      (let ((circe-default-directory default-directory))
+         (circe-server-mode))
       (setq circe-network "test")
       (setq proc (start-process "test" nil "cat")
             circe-server-process proc)