Commit 94e25073 authored by Daniel Kochmański's avatar Daniel Kochmański
Browse files

restructure: files: refer to foo.txt in top directory


Signed-off-by: Daniel Kochmański's avatarDaniel Kochmański <daniel@turtleware.eu>
parent 6dd1f8e2
...@@ -3,8 +3,6 @@ ...@@ -3,8 +3,6 @@
;;;; Created: Tue Jan 13 19:10:02 2004 ;;;; Created: Tue Jan 13 19:10:02 2004
;;;; Contains: Tests of the FILE-ERROR condition, and associated accessor function ;;;; Contains: Tests of the FILE-ERROR condition, and associated accessor function
(deftest file-error.1 (deftest file-error.1
(let ((pn (make-pathname :name :wild (let ((pn (make-pathname :name :wild
:type "txt" :type "txt"
...@@ -21,37 +19,37 @@ ...@@ -21,37 +19,37 @@
t t) t t)
(deftest file-error-pathname.1 (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 (values
(notnot (typep c 'file-error)) (notnot (typep c 'file-error))
(eqlt (class-of c) (find-class 'file-error)) (eqlt (class-of c) (find-class 'file-error))
(file-error-pathname c))) (file-error-pathname c)))
t t "scratch/foo.txt") t t "foo.txt")
(deftest file-error-pathname.2 (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 (values
(notnot (typep c 'file-error)) (notnot (typep c 'file-error))
(eqlt (class-of c) (find-class '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) t t t)
(deftest file-error-pathname.3 (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 (values
(notnot (typep c 'file-error)) (notnot (typep c 'file-error))
(eqlt (class-of c) (find-class 'file-error)) (eqlt (class-of c) (find-class 'file-error))
(equalpt "CLTEST:scratch/foo.txt" (equalpt "CLTEST:foo.txt"
(file-error-pathname c)))) (file-error-pathname c))))
t t t) t t t)
(deftest file-error-pathname.4 (deftest file-error-pathname.4
(let ((c (make-condition (let ((c (make-condition
'file-error :pathname (logical-pathname "CLTEST:scratch/foo.txt")))) 'file-error :pathname (logical-pathname "CLTEST:foo.txt"))))
(values (values
(notnot (typep c 'file-error)) (notnot (typep c 'file-error))
(eqlt (class-of c) (find-class '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)))) (file-error-pathname c))))
t t t) t t t)
...@@ -81,6 +79,6 @@ ...@@ -81,6 +79,6 @@
(deftest file-error-pathname.error.2 (deftest file-error-pathname.error.2
(signals-error (signals-error
(file-error-pathname (file-error-pathname
(make-condition 'file-error :pathname "scratch/foo.txt") (make-condition 'file-error :pathname "foo.txt")
nil) nil)
program-error) t) program-error) t)
...@@ -3,8 +3,6 @@ ...@@ -3,8 +3,6 @@
;;;; Created: Tue Jan 6 05:32:37 2004 ;;;; Created: Tue Jan 6 05:32:37 2004
;;;; Contains: Tests of TRUENAME ;;;; Contains: Tests of TRUENAME
(deftest truename.1 (deftest truename.1
(let* ((pn #p"truename.txt") (let* ((pn #p"truename.txt")
(tn (truename pn))) (tn (truename pn)))
...@@ -55,7 +53,7 @@ ...@@ -55,7 +53,7 @@
t nil t t) t nil t t)
(deftest truename.5 (deftest truename.5
(let* ((lpn "CLTEST:scratch/foo.txt") (let* ((lpn "CLTEST:foo.txt")
(pn (translate-logical-pathname lpn))) (pn (translate-logical-pathname lpn)))
(unless (probe-file lpn) (unless (probe-file lpn)
(with-open-file (s lpn :direction :output) (format s "Stuff~%"))) (with-open-file (s lpn :direction :output) (format s "Stuff~%")))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment