Commit 11a9b9ba authored by Marius Gerbershagen's avatar Marius Gerbershagen
Browse files

fix bogus error in ensure-directories-exist.8

The test would succeed only the first time it was run, since it was
creating a temporary directory each run which wasn't cleaned up.
parent 04a909c5
......@@ -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)
......
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