diff options
| author | Arun Isaac | 2023-01-03 20:01:41 +0000 |
|---|---|---|
| committer | Arun Isaac | 2023-01-03 20:06:08 +0000 |
| commit | 8b3e2681c0465498192b98abe784f248ebb29086 (patch) | |
| tree | a76123531b1b7e5c2291746b94ea19a6b48397c2 /build-aux | |
| parent | a525bd1d808f46095a4cf71d5f37b2ed781a49aa (diff) | |
| download | guile-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.
Diffstat (limited to 'build-aux')
| -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") |