From b19768081d2d1142c95e08bcdcb7a791eae90bd2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Fri, 4 Sep 2015 11:08:24 +0200
Subject: [PATCH] restructure: fix ensure-directories tests
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Signed-off-by: Daniel Kochmański <daniel@turtleware.eu>
---
 ...s-exist.txt => ensure-directories-exist.txt |  0
 files/ensure-directories-exist.lsp             | 18 +++++++++---------
 2 files changed, 9 insertions(+), 9 deletions(-)
 rename sample-files/ensure-directories-exist.txt => ensure-directories-exist.txt (100%)

diff --git a/sample-files/ensure-directories-exist.txt b/ensure-directories-exist.txt
similarity index 100%
rename from sample-files/ensure-directories-exist.txt
rename to ensure-directories-exist.txt
diff --git a/files/ensure-directories-exist.lsp b/files/ensure-directories-exist.lsp
index 2809b593..0396af23 100644
--- a/files/ensure-directories-exist.lsp
+++ b/files/ensure-directories-exist.lsp
@@ -1,10 +1,10 @@
-;-*- Mode:     Lisp -*-
+n;-*- Mode:     Lisp -*-
 ;;;; Author:   Paul Dietz
 ;;;; Created:  Mon Jan  5 20:53:03 2004
 ;;;; Contains: Tests of ENSURE-DIRECTORIES-EXIST
 
 (deftest ensure-directories-exist.1
-  (let* ((pn (make-pathname :name "sample-files/ensure-directories-exist.txt"
+  (let* ((pn (make-pathname :name "ensure-directories-exist.txt"
                             :defaults *default-pathname-defaults*))
          (results nil)
          (verbosity
@@ -20,7 +20,7 @@
 
 (deftest ensure-directories-exist.2
   (with-open-file
-   (s "sample-files/ensure-directories-exist.txt" :direction :input)
+   (s "ensure-directories-exist.txt" :direction :input)
    (let* ((results (multiple-value-list (ensure-directories-exist s))))
      (values
       (length results)
@@ -29,7 +29,7 @@
    2 t nil)
 
 (deftest ensure-directories-exist.3
-  (let ((s (open "sample-files/ensure-directories-exist.txt" :direction :input)))
+  (let ((s (open "ensure-directories-exist.txt" :direction :input)))
     (close s)
     (let* ((results (multiple-value-list (ensure-directories-exist s))))
       (values
@@ -39,7 +39,7 @@
    2 t nil)
 
 (deftest ensure-directories-exist.4
-  (let* ((pn (make-pathname :name "sample-files/ensure-directories-exist.txt"
+  (let* ((pn (make-pathname :name "ensure-directories-exist.txt"
                             :defaults *default-pathname-defaults*))
          (results nil)
          (verbosity
@@ -55,7 +55,7 @@
   2 t nil "")
 
 (deftest ensure-directories-exist.5
-  (let* ((pn (make-pathname :name "sample-files/ensure-directories-exist.txt"
+  (let* ((pn (make-pathname :name "ensure-directories-exist.txt"
                             :defaults *default-pathname-defaults*))
          (results nil)
          (verbosity
@@ -71,7 +71,7 @@
   2 t nil "")
 
 (deftest ensure-directories-exist.6
-  (let* ((pn (make-pathname :name "sample-files/ensure-directories-exist.txt"
+  (let* ((pn (make-pathname :name "ensure-directories-exist.txt"
                             :defaults *default-pathname-defaults*))
          (results nil)
          (verbosity
@@ -88,7 +88,7 @@
   2 t nil "")
 
 (deftest ensure-directories-exist.7
-  (let* ((pn (make-pathname :name "sample-files/ensure-directories-exist.txt"
+  (let* ((pn (make-pathname :name "ensure-directories-exist.txt"
                             :defaults *default-pathname-defaults*))
          (results nil)
          (verbosity
@@ -140,7 +140,7 @@
 
 (deftest ensure-directories-exist.9
   (do-special-strings
-   (str "sample-files/ensure-directories-exist.txt" nil)
+   (str "ensure-directories-exist.txt" nil)
    (let* ((results (multiple-value-list (ensure-directories-exist str))))
      (assert (eql (length results) 2))
      (assert (equalt (truename (first results)) (truename str)))
-- 
GitLab