X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fstream.pure.lisp;h=d1f52f8ef79cd34582e1d2defb53c6ca7334c8f9;hb=24407d11d34abdaaef6d839fd0b2665c73b0e6d5;hp=f62da092b89fc6d8234c2ca6b1d115706bf5e388;hpb=b4dcc81361b084a1ed9e3212ae4abbb174720780;p=sbcl.git

diff --git a/tests/stream.pure.lisp b/tests/stream.pure.lisp
index f62da09..d1f52f8 100644
--- a/tests/stream.pure.lisp
+++ b/tests/stream.pure.lisp
@@ -14,7 +14,7 @@
 (in-package :cl-user)
 
 ;;; Until sbcl-0.6.11.31, we didn't have an N-BIN method for
-;;; CONCATENATED-STRING, so stuff like this would fail.
+;;; CONCATENATED-STREAM, so stuff like this would fail.
 (let ((stream (make-concatenated-stream (make-string-input-stream "Demo")))
       (buffer (make-string 4)))
   (read-sequence buffer stream))
@@ -51,3 +51,25 @@
      (unless (= n-actually-read-1 n-to-read)
        (assert (< n-actually-read-1 n-to-read))
        (return)))))
+
+;;; Entomotomy PEEK-CHAR-WRONGLY-ECHOS-TO-ECHO-STREAM bug, fixed by
+;;; by MRD patch sbcl-devel 2002-11-02 merged ca. sbcl-0.7.9.32...
+(assert (string=
+	 (with-output-to-string (out)
+	   (peek-char #\]
+		      (make-echo-stream  
+		       (make-string-input-stream "ab cd e df s]") out)))
+	 ;; (Before the fix, the result had a trailing #\] in it.)
+	 "ab cd e df s"))
+;;; ...and a missing wrinkle in the original patch, dealing with
+;;; PEEK-CHAR/UNREAD-CHAR on ECHO-STREAMs, fixed by MRD patch
+;;; sbcl-devel 2002-11-18, merged ca. sbcl-0.7.9.66
+(assert (string=
+	 (let* ((in-stream (make-string-input-stream "abc"))
+		(out-stream (make-string-output-stream))
+		(echo-stream (make-echo-stream in-stream out-stream)))  
+	   (unread-char (read-char echo-stream) echo-stream)  
+	   (peek-char #\a echo-stream)
+	   (get-output-stream-string out-stream))
+	 ;; (Before the fix, the LET* expression just signalled an error.)
+	 "a"))