From 1c99e6543cc52463ede8ad562462bf66d0b2e47a Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Fri, 24 Feb 2023 20:47:11 +0000
Subject: [PATCH] Fix #159:  Don't use /tmp as a path for temp files

---
 tests/issues.lisp | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/tests/issues.lisp b/tests/issues.lisp
index 89484ab5a..68d3c2efd 100644
--- a/tests/issues.lisp
+++ b/tests/issues.lisp
@@ -18,8 +18,10 @@
   (declare (ignore arg))
   form)
 
-(defparameter *test-path*
-  (merge-pathnames (make-pathname :name :unspecific :type :unspecific
+(defparameter *tmp-dir*
+  (merge-pathnames (make-pathname :directory '(:relative "tmp")
+				  :name :unspecific
+				  :type :unspecific
                                   :version :unspecific)
                    *load-truename*)
   "Directory for temporary test files.")
@@ -777,10 +779,11 @@
 
 (define-test issue.140.two-way-stream
     (:tag :issues)
+  (ensure-directories-exist *tmp-dir*)
   (with-open-file (in (merge-pathnames "issues.lisp" cmucl-test-runner::*load-path*)
 		      :direction :input
 		      :external-format :utf-8)
-    (with-open-file (out "/tmp/output.tst"
+    (with-open-file (out (merge-pathnames "output.tst" *tmp-dir*)
 			 :direction :output
 			 :external-format :utf-8
 			 :if-exists :supersede)
@@ -803,15 +806,15 @@
   ;; Create 3 output streams.  The exact external formats aren't
   ;; really important here as long as they're different for each file
   ;; so we can tell if we got the right answer.
-  (with-open-file (s1 "/tmp/broad-1"
+  (with-open-file (s1 (merge-pathnames "broad-1" *tmp-dir*)
 		      :direction :output
 		      :if-exists :supersede
 		      :external-format :latin1)
-    (with-open-file (s2 "/tmp/broad-2" 
+    (with-open-file (s2 (merge-pathnames "broad-2" *tmp-dir*)
 			:direction :output
 			:if-exists :supersede
 			:external-format :utf-8)
-      (with-open-file (s3 "/tmp/broad-3" 
+      (with-open-file (s3 (merge-pathnames "broad-3" *tmp-dir*)
 			  :direction :output
 			  :if-exists :supersede
 			  :external-format :utf-16)
-- 
GitLab