Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
ansi-test
ansi-test
Commits
e662a305
Commit
e662a305
authored
Oct 03, 2021
by
Marius Gerbershagen
Browse files
Merge branch 'ensure-directories-exist.8' into 'master'
fix bogus error in ensure-directories-exist.8 See merge request
!47
parents
7d7c4732
11a9b9ba
Changes
1
Hide whitespace changes
Inline
Side-by-side
files/ensure-directories-exist.lsp
View file @
e662a305
...
...
@@ -106,13 +106,14 @@
;;; Case where directory shouldn't exist
;; The directort ansi-tests/scratch must not exist before this
;; test is run
(deftest ensure-directories-exist.8
(let* ((subdir (make-pathname :directory '(:relative "scratch")
:defaults *default-pathname-defaults*))
(pn (make-pathname :name "foo" :type "txt"
:defaults subdir)))
(ignore-errors
(delete-file pn)
(delete-file subdir))
(assert (not (probe-file pn)) ()
"Delete subdirectory scratch and its contents!")
(let* ((results nil)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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