tests: Add tests for (email base64).

* tests/encoding.scm: Move common code for encoding tests to this new
file.
* tests/quoted-printable.scm: Load encoding.scm.
* tests/base64.scm: New file.
* Makefile.am (SCM_TESTS): Register tests/base64.scm.

1 files changed, 33 insertions, 0 deletions

diff --git a/tests/encoding.scm b/tests/encoding.scm
new file mode 100644
index 0000000..d623d48
--- /dev/null
+++ b/tests/encoding.scm
@@ -0,0 +1,33 @@
+;;; guile-email --- Guile email parser
+;;; Copyright © 2020 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/>.
+
+(use-modules (rnrs bytevectors)
+             (srfi srfi-1))
+
+(set! *random-state* (random-state-from-platform))
+
+(define (random-bytevector len)
+  "Return a random bytevector of length LEN."
+  (u8-list->bytevector
+   (map (lambda _ (random 256)) (iota len))))
+
+(define (each-line-has-a-maximum-of-76-characters? str)
+  (every (lambda (line)
+           (<= (string-length line) 76))
+         (string-split str #\newline)))