Skip to content
Snippets Groups Projects
Commit 49f888dd authored by Philipp Marek's avatar Philipp Marek
Browse files

Add a non-ASCII test for READ-STREAM-CONTENT-INTO-STRING.

parent 9acc5bd5
No related branches found
No related tags found
No related merge requests found
......@@ -1558,6 +1558,21 @@
"foo bar"
"foo bar")
(deftest read-stream-content-into-string.1-umlauts
(values (with-input-from-string (stream "föö βαρ")
(read-stream-content-into-string stream))
(with-input-from-string (stream "föö βαρ")
(read-stream-content-into-string stream :buffer-size 1))
(with-input-from-string (stream "föö βαρ")
(read-stream-content-into-string stream :buffer-size 6))
(with-input-from-string (stream "föö βαρ")
(read-stream-content-into-string stream :buffer-size 7)))
"föö βαρ"
"föö βαρ"
"föö βαρ"
"föö βαρ")
(deftest read-stream-content-into-string.2
(handler-case
(let ((stream (make-broadcast-stream)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment