Skip to content
Snippets Groups Projects
Commit 912cb900 authored by pfdietz's avatar pfdietz
Browse files

Don't use probe-file on a directory

parent 7f0b21e7
No related branches found
No related tags found
No related merge requests found
......@@ -113,12 +113,12 @@
;; test is run
(deftest ensure-directories-exist.8
(let* ((subdir (make-pathname :directory '(:relative "scratch")
:defaults *default-pathname-defaults*)))
(assert (not (probe-file subdir)) ()
"Delete subdirectory scratch!")
(let* ((pn (make-pathname :name "foo" :type "txt"
:defaults subdir))
(results nil)
:defaults *default-pathname-defaults*))
(pn (make-pathname :name "foo" :type "txt"
:defaults subdir)))
(assert (not (probe-file pn)) ()
"Delete subdirectory scratch and its contents!")
(let* ((results nil)
(verbosity
(with-output-to-string
(*standard-output*)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment