Skip to content
Snippets Groups Projects
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
No related branches found
No related tags found
No related merge requests found
...@@ -106,13 +106,14 @@ ...@@ -106,13 +106,14 @@
;;; Case where directory shouldn't exist ;;; Case where directory shouldn't exist
;; The directort ansi-tests/scratch must not exist before this
;; test is run
(deftest ensure-directories-exist.8 (deftest ensure-directories-exist.8
(let* ((subdir (make-pathname :directory '(:relative "scratch") (let* ((subdir (make-pathname :directory '(:relative "scratch")
:defaults *default-pathname-defaults*)) :defaults *default-pathname-defaults*))
(pn (make-pathname :name "foo" :type "txt" (pn (make-pathname :name "foo" :type "txt"
:defaults subdir))) :defaults subdir)))
(ignore-errors
(delete-file pn)
(delete-file subdir))
(assert (not (probe-file pn)) () (assert (not (probe-file pn)) ()
"Delete subdirectory scratch and its contents!") "Delete subdirectory scratch and its contents!")
(let* ((results nil) (let* ((results nil)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment