Commit 07426afc authored by Robert P. Goldman's avatar Robert P. Goldman
Browse files

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.
parent 74aec2b3
...@@ -185,8 +185,14 @@ ...@@ -185,8 +185,14 @@
(ensure-directories-exist (subpathname *build-directory* "deleteme/a/b/e/")) (ensure-directories-exist (subpathname *build-directory* "deleteme/a/b/e/"))
(register-directory *asdf-directory*) (register-directory *asdf-directory*)
(register-directory *uiop-directory*) (register-directory *uiop-directory*)
(copy-file (system-source-file :uiop) (subpathname *build-directory* "deleteme/a/1.x")) (let ((new-file (subpathname *build-directory* "deleteme/a/1.x")))
(copy-file (system-source-file :uiop) (subpathname *build-directory* "deleteme/a/b/2")) (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/c/")))
(assert (directory-exists-p (subpathname *build-directory* "deleteme/a/b/d/"))) (assert (directory-exists-p (subpathname *build-directory* "deleteme/a/b/d/")))
(assert (directory-exists-p (subpathname *build-directory* "deleteme/a/b/e/"))) (assert (directory-exists-p (subpathname *build-directory* "deleteme/a/b/e/")))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment