diff options
Diffstat (limited to 'test-suite/tests/ports.test')
| -rw-r--r-- | test-suite/tests/ports.test | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/test-suite/tests/ports.test b/test-suite/tests/ports.test index 66e10e3dd..1b30e1a68 100644 --- a/test-suite/tests/ports.test +++ b/test-suite/tests/ports.test @@ -1063,6 +1063,13 @@ error ;; 88: not a valid starting byte error ;; 88: not a valid starting byte error ;; 88: not a valid starting byte + eof)) + + (test-decoding-error (#xf4 #xa4 #xbd #xa4) "UTF-8" + (error ;; 2nd byte should be in the 90..BF range + error ;; 88: not a valid starting byte + error ;; 88: not a valid starting byte + error ;; 88: not a valid starting byte eof)))) (with-test-prefix "call-with-output-string" |