diff --git a/files/file-error.lsp b/files/file-error.lsp index 43ae76bf2a02521400c62c9f7c7176c6f77fa1b4..99b455048a83c406778d70c1450bfea1e41c6022 100644 --- a/files/file-error.lsp +++ b/files/file-error.lsp @@ -3,8 +3,6 @@ ;;;; Created: Tue Jan 13 19:10:02 2004 ;;;; Contains: Tests of the FILE-ERROR condition, and associated accessor function - - (deftest file-error.1 (let ((pn (make-pathname :name :wild :type "txt" @@ -21,37 +19,37 @@ t t) (deftest file-error-pathname.1 - (let ((c (make-condition 'file-error :pathname "scratch/foo.txt"))) + (let ((c (make-condition 'file-error :pathname "foo.txt"))) (values (notnot (typep c 'file-error)) (eqlt (class-of c) (find-class 'file-error)) (file-error-pathname c))) - t t "scratch/foo.txt") + t t "foo.txt") (deftest file-error-pathname.2 - (let ((c (make-condition 'file-error :pathname #p"scratch/foo.txt"))) + (let ((c (make-condition 'file-error :pathname #p"foo.txt"))) (values (notnot (typep c 'file-error)) (eqlt (class-of c) (find-class 'file-error)) - (equalt #p"scratch/foo.txt" (file-error-pathname c)))) + (equalt #p"foo.txt" (file-error-pathname c)))) t t t) (deftest file-error-pathname.3 - (let ((c (make-condition 'file-error :pathname "CLTEST:scratch/foo.txt"))) + (let ((c (make-condition 'file-error :pathname "CLTEST:foo.txt"))) (values (notnot (typep c 'file-error)) (eqlt (class-of c) (find-class 'file-error)) - (equalpt "CLTEST:scratch/foo.txt" + (equalpt "CLTEST:foo.txt" (file-error-pathname c)))) t t t) (deftest file-error-pathname.4 (let ((c (make-condition - 'file-error :pathname (logical-pathname "CLTEST:scratch/foo.txt")))) + 'file-error :pathname (logical-pathname "CLTEST:foo.txt")))) (values (notnot (typep c 'file-error)) (eqlt (class-of c) (find-class 'file-error)) - (equalpt (logical-pathname "CLTEST:scratch/foo.txt") + (equalpt (logical-pathname "CLTEST:foo.txt") (file-error-pathname c)))) t t t) @@ -81,6 +79,6 @@ (deftest file-error-pathname.error.2 (signals-error (file-error-pathname - (make-condition 'file-error :pathname "scratch/foo.txt") + (make-condition 'file-error :pathname "foo.txt") nil) program-error) t) diff --git a/files/truename.lsp b/files/truename.lsp index b6bd2d4bf041230c2899f6ead4923a7ba7a15622..a9bb6a1ed4d96f5ae1c7ea24453d55d69f7e7cb2 100644 --- a/files/truename.lsp +++ b/files/truename.lsp @@ -3,8 +3,6 @@ ;;;; Created: Tue Jan 6 05:32:37 2004 ;;;; Contains: Tests of TRUENAME - - (deftest truename.1 (let* ((pn #p"truename.txt") (tn (truename pn))) @@ -55,7 +53,7 @@ t nil t t) (deftest truename.5 - (let* ((lpn "CLTEST:scratch/foo.txt") + (let* ((lpn "CLTEST:foo.txt") (pn (translate-logical-pathname lpn))) (unless (probe-file lpn) (with-open-file (s lpn :direction :output) (format s "Stuff~%")))