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