X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fstream.impure-cload.lisp;h=323881c30def2b010b92c9c129dc4926bec6f9a1;hb=c8cc0137e55e6179f6af344f42e54f514660f68b;hp=a4443ed83ea09e64ee643769158ac0463da44553;hpb=1bfc464c657a8f4ad24ef612f76a38d8f6f1bbad;p=sbcl.git

diff --git a/tests/stream.impure-cload.lisp b/tests/stream.impure-cload.lisp
index a4443ed..323881c 100644
--- 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*)