X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=tests%2Fstream.impure.lisp;h=099c30558c554ba32d2c96a388b9323eddc9bc12;hb=4ed3f0d08c3a57a6762018d9622f253ab9d0f2b6;hp=f98cb46e8c1f6b7c6cb55212da3dba78ceb19436;hpb=bd312c14430db9621126f014b0b07f3d47399378;p=sbcl.git

diff --git a/tests/stream.impure.lisp b/tests/stream.impure.lisp
index f98cb46..099c305 100644
--- a/tests/stream.impure.lisp
+++ b/tests/stream.impure.lisp
@@ -78,7 +78,7 @@
 
 (assert (raises-error? (read-byte (make-string-input-stream "abc"))
 		       type-error))
-(assert (raises-error? (with-open-file (s "/dev/random")
+(assert (raises-error? (with-open-file (s "/dev/zero")
 			 (read-byte s))
 		       type-error))
 ;;; success