From 94e25073ed76af67eb6f5ce3138d420c28a182d7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu> Date: Fri, 4 Sep 2015 15:05:47 +0200 Subject: [PATCH] restructure: files: refer to foo.txt in top directory MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: Daniel Kochmański <daniel@turtleware.eu> --- files/file-error.lsp | 20 +++++++++----------- files/truename.lsp | 4 +--- 2 files changed, 10 insertions(+), 14 deletions(-) diff --git a/files/file-error.lsp b/files/file-error.lsp index 43ae76bf..99b45504 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 b6bd2d4b..a9bb6a1e 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~%"))) -- GitLab