X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fstream.impure.lisp;h=d3f3adfa60271566afd954aa16ef50b5b420d6d1;hb=1b650be8b800cf96e2c268ae317fb26d0bf36827;hp=d2891f44886b95178e362dc5a28a884b3cf5b3bf;hpb=0957d59ccfaf3db9aaf79a7f4909a40ea0ca0dcd;p=sbcl.git

diff --git a/tests/stream.impure.lisp b/tests/stream.impure.lisp
index d2891f4..d3f3adf 100644
--- a/tests/stream.impure.lisp
+++ b/tests/stream.impure.lisp
@@ -55,5 +55,16 @@
                '(sb-impl::string-output-stream string-stream stream)))
 
 
+;;; improper buffering on (SIGNED-BYTE 8) streams (fixed by David Lichteblau):
+(let ((p "signed-byte-8-test.data"))
+  (with-open-file (s p
+		     :direction :output
+		     :element-type '(unsigned-byte 8)
+		     :if-exists :supersede)
+    (write-byte 255 s))
+  (with-open-file (s p :element-type '(signed-byte 8))
+    (assert (= (read-byte s) -1)))
+  (delete-file p))
+
 ;;; success
 (quit :unix-status 104)