diff options
author | Arun Isaac | 2020-05-21 04:00:56 +0530 |
---|---|---|
committer | Arun Isaac | 2020-05-25 19:09:20 +0530 |
commit | 02431261e07c3e069f14311e34faf2a5a7eefdd0 (patch) | |
tree | 4c4cc3bc3c8cd092e1684709521b95983de6a595 /tests/encoding.scm | |
parent | 4d8ddfb30b5792280d11d58b2e1faf01f91121a9 (diff) | |
download | guile-email-02431261e07c3e069f14311e34faf2a5a7eefdd0.tar.gz guile-email-02431261e07c3e069f14311e34faf2a5a7eefdd0.tar.lz guile-email-02431261e07c3e069f14311e34faf2a5a7eefdd0.zip |
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.
Diffstat (limited to 'tests/encoding.scm')
-rw-r--r-- | tests/encoding.scm | 33 |
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))) |