From d3ebe5a4920bf28c2c579078bb69e349776d5840 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sat, 15 Sep 2018 11:18:42 +0530
Subject: tests: Add tests for quoted-printable.

* tests/quoted-printable.scm (random-bytevector,
each-line-has-a-maximum-of-76-characters?,
string-has-only-quoted-printable-valid-characters?): New functions.
(quoted-printable random bytevector: quoted-printable-encode and
quoted-printable-decode are inverses of each other, quoted-printable
random bytevector: encoded output should not be more than 76 columns
wide, quoted-printable random bytevector: encoded output must only
consist of printable ASCII characters): New tests.
---
 tests/quoted-printable.scm | 42 +++++++++++++++++++++++++++++++++++++-----
 1 file changed, 37 insertions(+), 5 deletions(-)

diff --git a/tests/quoted-printable.scm b/tests/quoted-printable.scm
index f3dd5eb..e41eced 100755
--- a/tests/quoted-printable.scm
+++ b/tests/quoted-printable.scm
@@ -19,9 +19,28 @@
 
 (use-modules (email quoted-printable)
              (ice-9 iconv)
+             (rnrs bytevectors)
              (srfi srfi-1)
              (srfi srfi-64))
 
+(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)))
+
+(define (string-has-only-quoted-printable-valid-characters? str)
+  (string-every (char-set-union
+                 (char-set #\newline #\return #\space)
+                 (ucs-range->char-set 33 127))
+                str))
+
 (test-begin "quoted-printable")
 
 (let ((decoded-text
@@ -43,11 +62,9 @@ abriquent pour te la vendre une =C3=A2me vulgaire.")
     encoded-text)
 
   (test-assert "quoted-printable wikipedia example: encoded output should not be more than 76 columns wide"
-    (every (lambda (line)
-             (<= (string-length line) 76))
-           (string-split (quoted-printable-encode
-                          (string->bytevector decoded-text charset))
-                         #\newline))))
+    (each-line-has-a-maximum-of-76-characters?
+     (quoted-printable-encode
+      (string->bytevector decoded-text charset)))))
 
 (test-equal "quoted-printable encoding of ="
   (quoted-printable-encode
@@ -55,6 +72,21 @@ abriquent pour te la vendre une =C3=A2me vulgaire.")
   (string-append "=" (string-upcase (number->string
                                      (char->integer #\=) 16))))
 
+(let ((x (random-bytevector 1000)))
+  (test-equal "quoted-printable random bytevector: quoted-printable-encode and quoted-printable-decode are inverses of each other"
+    (quoted-printable-decode
+     (quoted-printable-encode x))
+    x))
+
+(test-assert "quoted-printable random bytevector: encoded output should not be more than 76 columns wide"
+  (each-line-has-a-maximum-of-76-characters?
+   (quoted-printable-encode
+    (random-bytevector 1000))))
+
+(test-assert "quoted-printable random bytevector: encoded output must only consist of printable ASCII characters"
+  (string-has-only-quoted-printable-valid-characters?
+   (quoted-printable-encode (random-bytevector 1000))))
+
 (let ((encoded-text "=A1Hola,_se=F1or!")
       (decoded-text "¡Hola, señor!")
       (charset "ISO-8859-1"))
-- 
cgit v1.2.3