Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
asdf
asdf
Commits
4c2cc7db
Commit
4c2cc7db
authored
Jun 29, 2015
by
Robert Goldman
Browse files
Fix check of DELETE-DIRECTORY-TREE.
Made not-always-satisfied assumption about the depth of the *build-directory*.
parent
4c6c0e3b
Changes
1
Hide whitespace changes
Inline
Side-by-side
test/test-utilities.script
View file @
4c2cc7db
...
...
@@ -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/"))))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment