summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--.gitignore1
-rw-r--r--build-aux/test-corpus.scm.in54
-rw-r--r--configure.ac3
3 files changed, 57 insertions, 1 deletions
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