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