dmbcs/guile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make temporary file in coding.test work on MS-Windows.

Browse source 
* 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.
This commit is contained in:
Eli Zaretskii 2014-08-13 18:41:15 +03:00
commit 7c848fe572
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
test-suite/tests/coding.test
View file

@ -20,7 +20,10 @@
#:use-module (test-suite lib)) #:use-module (test-suite lib))
(define (with-temp-file proc) (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))) (port (mkstemp! name)))
(let ((res (with-throw-handler (let ((res (with-throw-handler
#t #t