X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fstream.impure.lisp;h=d3f3adfa60271566afd954aa16ef50b5b420d6d1;hb=3fcdd6d5413993b47ab7c3060d52eefd04a5fabb;hp=09085606cbecc8a645e040e8f50b3c215eb282af;hpb=a96369c72588c5457d71d6aaea35f2c450b19ef5;p=sbcl.git

diff --git a/tests/stream.impure.lisp b/tests/stream.impure.lisp
index 0908560..d3f3adf 100644
--- a/tests/stream.impure.lisp
+++ b/tests/stream.impure.lisp
@@ -11,9 +11,8 @@
 ;;;; absolutely no warranty. See the COPYING and CREDITS files for
 ;;;; more information.
 
-(in-package :cl-user)
-
 (load "assertoid.lisp")
+(use-package "ASSERTOID")
 
 ;;; type errors for inappropriate stream arguments, fixed in
 ;;; sbcl-0.7.8.19
@@ -56,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)