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

Invalid charset at EOF does not cause decoding error

Browse source 
* libguile/ports.c (peek_iconv_codepoint): If the input has no bytes,
there's little point in raising a decoding error here.  Therefore remove
the needless iconv acquisition, harmonising with suspendable-ports.
* test-suite/tests/ports.test ("port-encoding"): Update test to include
some input so that the exception gets raised.
This commit is contained in:
Andy Wingo 2021-03-03 16:05:07 +01:00
parent c802ed4832
commit 5ea8c69e91
2 changed files with 3 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1314,7 +1314,7 @@
(pass-if-exception "set-port-encoding!, wrong encoding"
exception:miscellaneous-error
(let ((p (open-input-string "")))
(let ((p (open-input-string "q")))
(set-port-encoding! p "does-not-exist")
(read p)))