CVS: sbcl/tests filesys.test.sh,1.8,1.9 stream.impure.lisp,1.8,1.9

Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20507/tests

Modified Files:
        filesys.test.sh stream.impure.lisp 
Log Message:
0.8.7.23:
        Fix some OPEN tests
        ... :DIRECTION :IO didn't work if the file didn't exist, despite
                default being :CREATE
        ... adjust filesys test to cope with new disallowed
                :WILD-INFERIORS :UP
        ... we still fail some OPEN tests in PFD's suite: some are because
                of not supporting (unsigned-byte 33) streams, while the
                rest are because DIRECTORY is broken on logical pathnames,
                *sigh*


Index: filesys.test.sh
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/filesys.test.sh,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- filesys.test.sh     4 Dec 2002 15:23:03 -0000       1.8
+++ filesys.test.sh     27 Jan 2004 12:02:46 -0000      1.9
@@ -177,11 +177,13 @@
     (need-match "animal/vertebrate/**/*.*" vertebrates)
     (need-match "animal/vertebrate/mammal/../**/*.*" vertebrates)
     (need-match "animal/vertebrate/mammal/../**/**/*.*" vertebrates)
+    #+nil
     (need-match "animal/vertebrate/mammal/mythical/../**/../**/*.*"
                vertebrates))
   (need-match "animal/vertebrate/**/robot.*" nil)
   (need-match "animal/vertebrate/mammal/../**/*.robot" nil)
   (need-match "animal/vertebrate/mammal/../**/robot/*.*" nil)
+  #+nil
   (need-match "animal/vertebrate/mammal/robot/../**/../**/*.*" nil))
 (need-matches)
 (sb-ext:quit :unix-status 52)

Index: stream.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/stream.impure.lisp,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- stream.impure.lisp  29 Nov 2003 11:25:32 -0000      1.8
+++ stream.impure.lisp  27 Jan 2004 12:02:46 -0000      1.9
@@ -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)



-------------------------------------------------------
The SF.Net email is sponsored by EclipseCon 2004
Premiere Conference on Open Tools Development and Integration
See the breadth of Eclipse activity. February 3-5 in Anaheim, CA.
http://www.eclipsecon.org/osdn