Commit e662a305 authored by Marius Gerbershagen's avatar 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
......@@ -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