1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
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)
|
