From 4c2cc7db6593d4462d3e4ce315b85a5a5c910f9c Mon Sep 17 00:00:00 2001 From: "Robert P. Goldman" <rpgoldman@sift.net> Date: Mon, 29 Jun 2015 17:22:09 -0500 Subject: [PATCH] Fix check of DELETE-DIRECTORY-TREE. Made not-always-satisfied assumption about the depth of the *build-directory*. --- test/test-utilities.script | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/test/test-utilities.script b/test/test-utilities.script index 9757f7dfc..ae9456ecb 100644 --- a/test/test-utilities.script +++ b/test/test-utilities.script @@ -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/")))) -- GitLab