Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Karsten Poeck
ansi-test
Commits
b1976808
Commit
b1976808
authored
Sep 04, 2015
by
Daniel Kochmański
Browse files
restructure: fix ensure-directories tests
Signed-off-by:
Daniel Kochmański
<
daniel@turtleware.eu
>
parent
ff382680
Changes
2
Hide whitespace changes
Inline
Side-by-side
sample-files/
ensure-directories-exist.txt
→
ensure-directories-exist.txt
View file @
b1976808
File moved
files/ensure-directories-exist.lsp
View file @
b1976808
;-*- 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)))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment