mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-26 21:20:30 +02:00
Code Activity

MINGW: in ports test, use binary mode for line counter tests

Browse source 
The line counter tests presumes newline-only line endings.  Use binary
mode to avoid CRLF endings.

* test-suite/tests/ports.test ("line endings"): write test file in binary
    mode
This commit is contained in:
Michael Gran 2023-07-04 09:42:46 -07:00
parent 1838ef8ef6
commit ba4939e31f
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test-suite/tests/ports.test
View file

@ -1160,7 +1160,9 @@
(define (input-port-list text) (define (input-port-list text)
;; Create a text file some of the ports will use. ;; Create a text file some of the ports will use.
(let ((out-port (open-output-file port-loop-temp))) ;; We use binary mode to avoid having to redesign this test for CRLF
;; line ending systems.
(let ((out-port (open-output-file port-loop-temp #:binary #t)))
(display text out-port) (display text out-port)
(close-port out-port)) (close-port out-port))