X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fstream.impure.lisp;h=9b671c5c163cbb53f044823e11f19d61d5520c29;hb=c44f2e6960733edc383244f3e39db3b6581255c4;hp=71a7a8c3396d31f11c39c9aa3896031e0b084049;hpb=b095510bb0f8a15bba529f31075998ce7fa883f6;p=sbcl.git

diff --git a/tests/stream.impure.lisp b/tests/stream.impure.lisp
index 71a7a8c..9b671c5 100644
--- a/tests/stream.impure.lisp
+++ b/tests/stream.impure.lisp
@@ -93,5 +93,16 @@
   (with-open-file (s p)
     (assert (string= (read-line s) "THESE INSERTMBOLS")))
   (delete-file p))
+
+;;; :DIRECTION :IO didn't work on non-existent pathnames
+(let ((p "direction-io-test"))
+  (ignore-errors (delete-file p))
+  (with-open-file (s p :direction :io)
+    (format s "1")
+    (finish-output s)
+    (file-position s :start)
+    (assert (char= (read-char s) #\1)))
+  (delete-file p))
+
 ;;; success
 (quit :unix-status 104)