From 7c848fe5724666edf667e753b5c828c21748fe31 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Wed, 13 Aug 2014 18:41:15 +0300 Subject: [PATCH] Make temporary file in coding.test work on MS-Windows. * test-suite/tests/coding.test (with-temp-file): Instead of hard-coding "/tmp" as the temporary directory, use $TMPDIR or $TEMP from the environment, and fall back on "/tmp" if none of those 2 is defined. --- test-suite/tests/coding.test | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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 -- 2.20.1