diff options
| -rw-r--r-- | test-suite/tests/coding.test | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/test-suite/tests/coding.test b/test-suite/tests/coding.test index b57ef7da7..5f643f871 100644 --- a/test-suite/tests/coding.test +++ b/test-suite/tests/coding.test @@ -20,7 +20,10 @@ #:use-module (test-suite lib)) (define (with-temp-file proc) - (let* ((name (string-copy "/tmp/coding-test.XXXXXX")) + (let* ((tmpdir (or (getenv "TMPDIR") + (getenv "TEMP") + "/tmp")) + (name (string-append tmpdir "/coding-test.XXXXXX")) (port (mkstemp! name))) (let ((res (with-throw-handler #t |