Skip to content
Snippets Groups Projects
Commit 4c2cc7db authored by Robert Goldman's avatar Robert Goldman
Browse files

Fix check of DELETE-DIRECTORY-TREE.

Made not-always-satisfied assumption about the depth of the
*build-directory*.
parent 4c6c0e3b
No related branches found
No related tags found
No related merge requests found
......@@ -247,7 +247,7 @@
(delete-empty-directory (subpathname *build-directory* "deleteme/a/b/e/"))
(assert (not (directory-exists-p (subpathname *build-directory* "deleteme/a/b/e/"))))
(delete-directory-tree (subpathname *build-directory* "deleteme/")
:validate (lambda (x) (and (<= 5 (length (pathname-directory x)))
:validate (lambda (x) (and (<= 4 (length (pathname-directory x)))
(subpathp x *build-directory*))))
(assert (not (directory-exists-p (subpathname *build-directory* "deleteme/a/b/c/"))))
(assert (not (directory-exists-p (subpathname *build-directory* "deleteme/a/b/d/"))))
......
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