From 07426afc0597107f9a1d278ab630e879468148d5 Mon Sep 17 00:00:00 2001
From: "Robert P. Goldman" <rpgoldman@gmail.com>
Date: Sun, 9 Feb 2014 22:04:51 -0600
Subject: [PATCH] Check for previously-existing copies of deleteme files.

At least on ABCL, having these previously-existing copies causes tests
to fail because of unexpected directory contents.
---
 test/test-utilities.script | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/test/test-utilities.script b/test/test-utilities.script
index da59392b9..79115d371 100644
--- a/test/test-utilities.script
+++ b/test/test-utilities.script
@@ -185,8 +185,14 @@
 (ensure-directories-exist (subpathname *build-directory* "deleteme/a/b/e/"))
 (register-directory *asdf-directory*)
 (register-directory *uiop-directory*)
-(copy-file (system-source-file :uiop) (subpathname *build-directory* "deleteme/a/1.x"))
-(copy-file (system-source-file :uiop) (subpathname *build-directory* "deleteme/a/b/2"))
+(let ((new-file (subpathname *build-directory* "deleteme/a/1.x")))
+  (when (probe-file new-file)
+    (delete-file new-file))
+  (copy-file (system-source-file :uiop) new-file))
+(let ((new-file (subpathname *build-directory* "deleteme/a/b/2")))
+  (when (probe-file new-file)
+    (delete-file new-file))
+  (copy-file (system-source-file :uiop) new-file))
 (assert (directory-exists-p (subpathname *build-directory* "deleteme/a/b/c/")))
 (assert (directory-exists-p (subpathname *build-directory* "deleteme/a/b/d/")))
 (assert (directory-exists-p (subpathname *build-directory* "deleteme/a/b/e/")))
-- 
GitLab