From 7a78c23f6f2f1c32abb508563a700cd535b29ad1 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sun, 13 Jun 2021 21:11:59 +0530
Subject: Add corpus test scripts.

* build-aux/pull-corpus.scm, build-aux/test-corpus.scm.in: New files.
* configure.ac: Configure build-aux/test-corpus.scm.
* .gitignore: Add build-aux/test-corpus.scm.
---
 .gitignore                   |  1 +
 build-aux/test-corpus.scm.in | 54 ++++++++++++++++++++++++++++++++++++++++++++
 configure.ac                 |  3 ++-
 3 files changed, 57 insertions(+), 1 deletion(-)
 create mode 100644 build-aux/test-corpus.scm.in

diff --git a/.gitignore b/.gitignore
index 2206335..53643b4 100644
--- a/.gitignore
+++ b/.gitignore
@@ -5,6 +5,7 @@ aclocal.m4
 autom4te.cache
 build-aux/install-sh
 build-aux/missing
+build-aux/test-corpus.scm
 config.log
 config.status
 configure
diff --git a/build-aux/test-corpus.scm.in b/build-aux/test-corpus.scm.in
new file mode 100644
index 0000000..0920113
--- /dev/null
+++ b/build-aux/test-corpus.scm.in
@@ -0,0 +1,54 @@
+#! @GUILE@
+-*- scheme -*-
+!#
+;;; guile-email --- Guile email parser
+;;; Copyright © 2021 Arun Isaac <arunisaac@systemreboot.net>
+;;;
+;;; This file is part of guile-email.
+;;;
+;;; guile-email is free software; you can redistribute it and/or modify
+;;; it under the terms of the GNU Affero General Public License as
+;;; published by the Free Software Foundation; either version 3 of the
+;;; License, or (at your option) any later version.
+;;;
+;;; guile-email is distributed in the hope that it will be useful, but
+;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;;; Affero General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU Affero General Public
+;;; License along with guile-email.  If not, see
+;;; <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; This script recursively finds all mbox files in the current
+;; directory, and tests if guile-email can parse all messages without
+;; erroring out.
+
+;;; Code:
+
+(use-modules (ice-9 ftw)
+             (email email))
+
+(for-each (lambda (mbox)
+            (display mbox)
+            (newline)
+            (call-with-input-file mbox
+              (lambda (port)
+                (for-each parse-email (mbox->emails port)))))
+          (file-system-fold (const #t)
+                            (lambda (name stat result)
+                              (if (string-suffix? ".mbox" name)
+                                  (cons name result)
+                                  result))
+                            (lambda (name stat result)
+                              result)
+                            (lambda (name stat result)
+                              result)
+                            (lambda (name stat result)
+                              result)
+                            (lambda (name stat errno result)
+                              (error (strerror errno) name))
+                            '()
+                            "."))
diff --git a/configure.ac b/configure.ac
index 4b7763a..65311cc 100644
--- a/configure.ac
+++ b/configure.ac
@@ -1,5 +1,5 @@
 dnl guile-email --- Guile email parser
-dnl Copyright © 2018, 2019 Arun Isaac <arunisaac@systemreboot.net>
+dnl Copyright © 2018, 2019, 2021 Arun Isaac <arunisaac@systemreboot.net>
 dnl
 dnl This file is part of guile-email.
 dnl
@@ -28,4 +28,5 @@ GUILE_PROGS
 AC_CONFIG_FILES([Makefile])
 AC_CONFIG_FILES([pre-inst-env], [chmod +x pre-inst-env])
 AC_CONFIG_FILES([build-aux/test-driver.scm])
+AC_CONFIG_FILES([build-aux/test-corpus.scm], [chmod +x build-aux/test-corpus.scm])
 AC_OUTPUT
-- 
cgit v1.2.3