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
Loading
Loading
Loading
Loading
Loading
+15 −0
Original line number Diff line number Diff line
@@ -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)))