From 8b3e2681c0465498192b98abe784f248ebb29086 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Tue, 3 Jan 2023 20:01:41 +0000
Subject: 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.
---
 build-aux/test-corpus.scm | 7 -------
 1 file changed, 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")
-- 
cgit v1.2.3