mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Avoid 'with-latin1-locale' in binary I/O tests.

Browse source 
* test-suite/tests/r6rs-ports.test ("put-bytevector [2 args]")
("put-bytevector [3 args]", "put-bytevector [4 args]"): Set the default
port encoding instead of setting the locale.
This commit is contained in:
Mark H Weaver 2019-04-19 03:09:37 -04:00 • committed by Andy Wingo
parent 66ffd93dcf
commit c6692a4825
1 changed files with 7 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

15
test-suite/tests/r6rs-ports.test
View file

@ -243,14 +243,13 @@
(put-u8 port 77)
(equal? (get-u8 port) 77)))
;; Note: The `put-bytevector' tests below require a Latin-1 locale so
;; that the `scm_from_locale_stringn' call in `sf_write' will let all
;; the bytes through, unmodified. This is hacky, but we can't use
;; "custom binary output ports" here because they're only tested
;; later.
;; Note: The `put-bytevector' tests below temporarily set the default
;; port encoding to ISO-8859-1 so that the soft-port will let all the
;; bytes through, unmodified. This is hacky, but we can't use "custom
;; binary output ports" here because they're only tested later.
(pass-if "put-bytevector [2 args]"
(with-latin1-locale
(with-fluids ((%default-port-encoding "ISO-8859-1"))
(let ((port (make-soft-output-port))
(bv (make-bytevector 256)))
(put-bytevector port bv)
@ -259,7 +258,7 @@
(get-bytevector-n port (bytevector-length bv)))))))
(pass-if "put-bytevector [3 args]"
(with-latin1-locale
(with-fluids ((%default-port-encoding "ISO-8859-1"))
(let ((port (make-soft-output-port))
(bv (make-bytevector 256))
(start 10))
@ -269,7 +268,7 @@
(get-bytevector-n port (- (bytevector-length bv) start)))))))
(pass-if "put-bytevector [4 args]"
(with-latin1-locale
(with-fluids ((%default-port-encoding "ISO-8859-1"))
(let ((port (make-soft-output-port))
(bv (make-bytevector 256))
(start 10)