diff options
author | Eli Zaretskii <eliz@gnu.org> | 2014-08-13 18:41:15 +0300 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2014-08-13 18:41:15 +0300 |
commit | 7c848fe5724666edf667e753b5c828c21748fe31 (patch) | |
tree | becb640a9e177305f262511cca4ae8c24812d789 | |
parent | 1e9249e0cd0814937cb4bdda84c3002e24adbcb2 (diff) | |
download | guile-7c848fe5724666edf667e753b5c828c21748fe31.tar.gz |
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.
-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 |