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