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

restructure: fix ensure-directories tests


Signed-off-by: Daniel Kochmański's avatarDaniel Kochmański <daniel@turtleware.eu>
parent ff382680
;-*- Mode: Lisp -*- n;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz ;;;; Author: Paul Dietz
;;;; Created: Mon Jan 5 20:53:03 2004 ;;;; Created: Mon Jan 5 20:53:03 2004
;;;; Contains: Tests of ENSURE-DIRECTORIES-EXIST ;;;; Contains: Tests of ENSURE-DIRECTORIES-EXIST
(deftest ensure-directories-exist.1 (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*)) :defaults *default-pathname-defaults*))
(results nil) (results nil)
(verbosity (verbosity
...@@ -20,7 +20,7 @@ ...@@ -20,7 +20,7 @@
(deftest ensure-directories-exist.2 (deftest ensure-directories-exist.2
(with-open-file (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)))) (let* ((results (multiple-value-list (ensure-directories-exist s))))
(values (values
(length results) (length results)
...@@ -29,7 +29,7 @@ ...@@ -29,7 +29,7 @@
2 t nil) 2 t nil)
(deftest ensure-directories-exist.3 (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) (close s)
(let* ((results (multiple-value-list (ensure-directories-exist s)))) (let* ((results (multiple-value-list (ensure-directories-exist s))))
(values (values
...@@ -39,7 +39,7 @@ ...@@ -39,7 +39,7 @@
2 t nil) 2 t nil)
(deftest ensure-directories-exist.4 (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*)) :defaults *default-pathname-defaults*))
(results nil) (results nil)
(verbosity (verbosity
...@@ -55,7 +55,7 @@ ...@@ -55,7 +55,7 @@
2 t nil "") 2 t nil "")
(deftest ensure-directories-exist.5 (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*)) :defaults *default-pathname-defaults*))
(results nil) (results nil)
(verbosity (verbosity
...@@ -71,7 +71,7 @@ ...@@ -71,7 +71,7 @@
2 t nil "") 2 t nil "")
(deftest ensure-directories-exist.6 (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*)) :defaults *default-pathname-defaults*))
(results nil) (results nil)
(verbosity (verbosity
...@@ -88,7 +88,7 @@ ...@@ -88,7 +88,7 @@
2 t nil "") 2 t nil "")
(deftest ensure-directories-exist.7 (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*)) :defaults *default-pathname-defaults*))
(results nil) (results nil)
(verbosity (verbosity
...@@ -140,7 +140,7 @@ ...@@ -140,7 +140,7 @@
(deftest ensure-directories-exist.9 (deftest ensure-directories-exist.9
(do-special-strings (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)))) (let* ((results (multiple-value-list (ensure-directories-exist str))))
(assert (eql (length results) 2)) (assert (eql (length results) 2))
(assert (equalt (truename (first results)) (truename str))) (assert (equalt (truename (first results)) (truename str)))
......
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