summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2023-01-03 20:01:41 +0000
committerArun Isaac2023-01-03 20:06:08 +0000
commit8b3e2681c0465498192b98abe784f248ebb29086 (patch)
treea76123531b1b7e5c2291746b94ea19a6b48397c2
parenta525bd1d808f46095a4cf71d5f37b2ed781a49aa (diff)
downloadguile-email-8b3e2681c0465498192b98abe784f248ebb29086.tar.gz
guile-email-8b3e2681c0465498192b98abe784f248ebb29086.tar.lz
guile-email-8b3e2681c0465498192b98abe784f248ebb29086.zip
build-aux: Assume fail directory exists when testing corpus.
Assume fail directory exists and do not attempt to clear it. * build-aux/test-corpus.scm (main): Do not create or delete fail directory.
-rw-r--r--build-aux/test-corpus.scm7
1 files changed, 0 insertions, 7 deletions
diff --git a/build-aux/test-corpus.scm b/build-aux/test-corpus.scm
index 374060b..025837c 100644
--- a/build-aux/test-corpus.scm
+++ b/build-aux/test-corpus.scm
@@ -74,13 +74,6 @@ parse-email fails to FAIL-DIRECTORY."
(directory-files corpus)))
(define (main fail-directory)
- ;; If fail directory exists, delete its contents. Else, create it.
- (if (file-exists? fail-directory)
- (for-each (lambda (file)
- (delete-file (string-append fail-directory "/" file)))
- (directory-files fail-directory))
- (mkdir fail-directory))
-
;; Test corpora.
(test-corpus "guix-commits")
(test-corpus "guix-patches")