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