diff options
Diffstat (limited to 'test-suite/tests/rdelim.test')
-rw-r--r-- | test-suite/tests/rdelim.test | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/test-suite/tests/rdelim.test b/test-suite/tests/rdelim.test index f827f62a0..e61fc9246 100644 --- a/test-suite/tests/rdelim.test +++ b/test-suite/tests/rdelim.test @@ -72,8 +72,8 @@ (eof-object? (read-line p))))) (pass-if "decoding error" - (let ((p (with-fluids ((%default-port-encoding "UTF-8")) - (open-bytevector-input-port #vu8(65 255 66 67 68))))) + (let ((p (open-bytevector-input-port #vu8(65 255 66 67 68)))) + (set-port-encoding! p "UTF-8") (set-port-conversion-strategy! p 'error) (catch 'decoding-error (lambda () @@ -87,8 +87,8 @@ (eof-object? (read-line p))))))) (pass-if "decoding error, substitute" - (let ((p (with-fluids ((%default-port-encoding "UTF-8")) - (open-bytevector-input-port #vu8(65 255 66 67 68))))) + (let ((p (open-bytevector-input-port #vu8(65 255 66 67 68)))) + (set-port-encoding! p "UTF-8") (set-port-conversion-strategy! p 'substitute) (and (string=? (read-line p) "A?BCD") (eof-object? (read-line p)))))) |