From 02431261e07c3e069f14311e34faf2a5a7eefdd0 Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Thu, 21 May 2020 04:00:56 +0530 Subject: 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. --- tests/encoding.scm | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) create mode 100644 tests/encoding.scm (limited to 'tests/encoding.scm') 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 +;;; +;;; 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 +;;; . + +(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))) -- cgit v1.2.3