0.8.6.28:

[sbcl.git] / tests / stream.impure-cload.lisp

diff --git a/tests/stream.impure-cload.lisp b/tests/stream.impure-cload.lisp
index a4443ed..323881c 100644 (file)
--- a/tests/stream.impure-cload.lisp
+++ b/tests/stream.impure-cload.lisp
@@ -60,3 +60,16 @@
            (expect #\z))
          (expect nil))))) ; i.e. end of file
   (delete-file *scratch-file-name*))
+
+(with-open-file (s *scratch-file-name* :direction :output)
+  (format s "1234~%"))
+(assert
+ (string=
+  (with-open-file (s *scratch-file-name* :direction :input)
+    (let* ((b (make-string 10)))
+      (peek-char nil s)
+      (read-sequence b s)
+      b))
+  (format nil "1234")
+  :end1 4))
+(delete-file *scratch-file-name*)