diff options
Diffstat (limited to 'build-aux/test-corpus.scm')
| -rw-r--r-- | build-aux/test-corpus.scm | 7 |
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") |