0.9.2.43:
[sbcl.git] / tests / filesys.pure.lisp
index 3e7ab3d..cdac2f3 100644 (file)
@@ -4,7 +4,7 @@
 ;;;; While most of SBCL is derived from the CMU CL system, the test
 ;;;; files (like this one) were written from scratch after the fork
 ;;;; from CMU CL.
-;;;; 
+;;;;
 ;;;; This software is in the public domain and is provided with
 ;;;; absolutely no warranty. See the COPYING and CREDITS files for
 ;;;; more information.
 (in-package "CL-USER")
 
 ;;; In sbcl-0.6.9 FOO-NAMESTRING functions  returned "" instead of NIL.
-(let ((pathname0 (make-pathname :host nil 
-                               :directory
-                               (pathname-directory
-                                *default-pathname-defaults*)
-                               :name "getty"))
-      (pathname1 (make-pathname :host nil 
-                               :directory nil
-                               :name nil)))
+(let ((pathname0 (make-pathname :host nil
+                                :directory
+                                (pathname-directory
+                                 *default-pathname-defaults*)
+                                :name "getty"))
+      (pathname1 (make-pathname :host nil
+                                :directory nil
+                                :name nil)))
   (assert (equal (file-namestring pathname0) "getty"))
   (assert (equal (directory-namestring pathname0)
-                (directory-namestring *default-pathname-defaults*)))
+                 (directory-namestring *default-pathname-defaults*)))
   (assert (equal (file-namestring pathname1) ""))
   (assert (equal (directory-namestring pathname1) "")))
 
@@ -32,9 +32,9 @@
   ;; We know a little bit about the structure of this result;
   ;; let's test to make sure that this test file is in it.
   (assert (find-if (lambda (pathname)
-                    (search "tests/filesys.pure.lisp"
-                            (namestring pathname)))
-                  dir)))
+                     (search "tests/filesys.pure.lisp"
+                             (namestring pathname)))
+                   dir)))
 
 ;;; Set *default-pathname-defaults* to something other than the unix
 ;;; cwd, to catch functions which access the filesystem without
@@ -43,9 +43,9 @@
 
 (let ((*default-pathname-defaults*
        (make-pathname :directory
-                     (butlast
-                      (pathname-directory *default-pathname-defaults*))
-                     :defaults *default-pathname-defaults*)))
+                      (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)))
 ;;; if they are fed wild pathname designators; firstly, with wild
 ;;; pathnames that don't correspond to any files:
 (assert (typep (nth-value 1 (ignore-errors (open "non-existent*.lisp")))
-              'file-error))
+               'file-error))
 (assert (typep (nth-value 1 (ignore-errors (load "non-existent*.lisp")))
-              'file-error))
+               'file-error))
 ;;; then for pathnames that correspond to precisely one:
 (assert (typep (nth-value 1 (ignore-errors (open "filesys.pur*.lisp")))
-              'file-error))
+               'file-error))
 (assert (typep (nth-value 1 (ignore-errors (load "filesys.pur*.lisp")))
-              'file-error))
+               'file-error))
 ;;; then for pathnames corresponding to many:
 (assert (typep (nth-value 1 (ignore-errors (open "*.lisp")))
-              'file-error))
+               'file-error))
 (assert (typep (nth-value 1 (ignore-errors (load "*.lisp")))
-              'file-error))
+               'file-error))
 
 ;;; ANSI: FILE-LENGTH should signal an error of type TYPE-ERROR if
 ;;; STREAM is not a stream associated with a file.
@@ -74,4 +74,4 @@
 ;;; (Peter Van Eynde's ansi-test suite caught this, and Eric Marsden
 ;;; reported a fix for CMU CL, which was ported to sbcl-0.6.12.35.)
 (assert (typep (nth-value 1 (ignore-errors (file-length *terminal-io*)))
-              'type-error))
+               'type-error))