summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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")