0.8.5.29:

[sbcl.git] / tests / stream.impure.lisp

diff --git a/tests/stream.impure.lisp b/tests/stream.impure.lisp
index f98cb46..099c305 100644 (file)
--- a/tests/stream.impure.lisp
+++ b/tests/stream.impure.lisp
@@ -78,7 +78,7 @@
 \f
 (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