X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fstream.impure.lisp;h=71a7a8c3396d31f11c39c9aa3896031e0b084049;hb=64ec717cf13c44fb4571c1fd7fbd508551ecfe01;hp=099c30558c554ba32d2c96a388b9323eddc9bc12;hpb=d543ff4caaabda2f33ce7b5a723013db06aa5c9d;p=sbcl.git

diff --git a/tests/stream.impure.lisp b/tests/stream.impure.lisp
index 099c305..71a7a8c 100644
--- a/tests/stream.impure.lisp
+++ b/tests/stream.impure.lisp
@@ -81,5 +81,17 @@
 (assert (raises-error? (with-open-file (s "/dev/zero")
 			 (read-byte s))
 		       type-error))
+;;; bidirectional streams getting confused about their position
+(let ((p "bidirectional-stream-test"))
+  (with-open-file (s p :direction :output :if-exists :supersede)
+    (with-standard-io-syntax
+      (format s "~S ~S ~S~%" 'these 'are 'symbols)))
+  (with-open-file (s p :direction :io :if-exists :overwrite)
+    (read s)
+    (with-standard-io-syntax
+      (prin1 'insert s)))
+  (with-open-file (s p)
+    (assert (string= (read-line s) "THESE INSERTMBOLS")))
+  (delete-file p))
 ;;; success
 (quit :unix-status 104)