mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 04:15:36 +02:00
Code Activity

Fix binary output on files created by mkstemp!

Browse source 
Some operating systems require a O_BINARY flag.

* libguile/filesys.c (scm_i_mkstemp): Don't mask out O_BINARY flag
* test-suite/tests/posix.test ("binary mode honored"): new test
This commit is contained in:
Mike Gran 2019-02-09 16:59:38 -08:00 • committed by Andy Wingo
parent 08926cdcd0
commit a5df94e78c
2 changed files with 19 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

17
test-suite/tests/posix.test
View file

@ -76,7 +76,22 @@
(result (not (string=? str template))))
(close-port port)
(delete-file str)
result)))
result))
(pass-if "binary mode honored"
(let* ((template "T-XXXXXX")
(str (string-copy template))
(outport (mkstemp! str "wb")))
(display "\n" outport)
(close-port outport)
(let* ((inport (open-input-file str #:binary #t))
(char1 (read-char inport))
(char2 (read-char inport))
(result (and (char=? char1 #\newline)
(eof-object? char2))))
(close-port inport)
(delete-file str)
result))))
;;
;; putenv