diff options
author | Daniel Barlow <dan@telent.net> | 2002-03-17 03:47:18 +0000 |
---|---|---|
committer | Daniel Barlow <dan@telent.net> | 2002-03-17 03:47:18 +0000 |
commit | 1394636aef3b85be4fb6ef4a5424115aa2022d99 (patch) | |
tree | ba4d6dfc3ffe905f9113acad0577eda8a263daca /tests/filesys.pure.lisp | |
parent | 5037c9ac22cbab91eb3cf1ee6261c8589e17e81d (diff) |
0.7.1.43
In OPEN, the pathname is now merged against
*default-pathname-defaults* before access to the filesystem.
Failure to do this breaks OPEN on relative pathnames when
*default-pathname-defaults* is not the Unix cwd
Diffstat (limited to 'tests/filesys.pure.lisp')
-rw-r--r-- | tests/filesys.pure.lisp | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/tests/filesys.pure.lisp b/tests/filesys.pure.lisp index 559e0fd3f..a1800e23b 100644 --- a/tests/filesys.pure.lisp +++ b/tests/filesys.pure.lisp @@ -36,6 +36,22 @@ (namestring pathname))) dir))) +;;; Set *default-pathname-defaults* to something other than the unix +;;; cwd, to catch functions which access the filesystem without +;;; merging properly. We should test more functions than just OPEN +;;; here, of course + +(let ((*default-pathname-defaults* + (make-pathname :directory + (butlast + (pathname-directory *default-pathname-defaults*)) + :defaults *default-pathname-defaults*))) + ;; SBCL 0.7.1.2 failed to merge on OPEN + (with-open-file (i "tests/filesys.pure.lisp") + (assert i))) + + + ;;; ANSI: FILE-LENGTH should signal an error of type TYPE-ERROR if ;;; STREAM is not a stream associated with a file. ;;; |