X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=tests%2Fpathnames.impure.lisp;h=7898a294a8cfd1f1f8246ccffb4f9277fb72d5bd;hb=4081f91910d6dc5dc79e2c43b8a746acaa78ecd9;hp=00da4c03c891f52bdcf8aa5ab96507045153f7cd;hpb=0f3d47226b4c3f9fcc350e681443534701d56aa4;p=sbcl.git

diff --git a/tests/pathnames.impure.lisp b/tests/pathnames.impure.lisp
index 00da4c0..7898a29 100644
--- a/tests/pathnames.impure.lisp
+++ b/tests/pathnames.impure.lisp
@@ -275,5 +275,14 @@
 	 (setf (logical-pathname-translations "")
 	       (list '("**;*.*.*" "/**/*.*")))))
 
+;;; Not strictly pathname logic testing, but until sbcl-0.7.6.19 we
+;;; had difficulty with non-FILE-STREAM stream arguments to pathname
+;;; functions (they would cause memory protection errors).  Make sure
+;;; that those errors are gone:
+(assert (raises-error? (pathname (make-string-input-stream "FOO"))
+		       type-error))
+(assert (raises-error? (merge-pathnames (make-string-output-stream))
+		       type-error))
+
 ;;;; success
 (quit :unix-status 104)