From 77e1338fc5b3506d5557fae34178f9447c83a72d Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sat, 15 Sep 2018 16:09:03 +0530
Subject: tests: Add random test for Q encoding.

* tests/quoted-printable.scm (q-encoding random bytevector:
q-encoding-encode and q-encoding-decode are inverses of each other):
New test.
---
 tests/quoted-printable.scm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'tests/quoted-printable.scm')

diff --git a/tests/quoted-printable.scm b/tests/quoted-printable.scm
index 554b85d..267011a 100755
--- a/tests/quoted-printable.scm
+++ b/tests/quoted-printable.scm
@@ -112,4 +112,9 @@ abriquent pour te la vendre une =C3=A2me vulgaire.")
                  (quoted-printable-escape-encode-char #\_)
                  (quoted-printable-escape-encode-char #\?)))
 
+(let ((x (random-bytevector 1000)))
+  (test-equal "q-encoding random bytevector: q-encoding-encode and q-encoding-decode are inverses of each other"
+    (q-encoding-decode (q-encoding-encode x))
+    x))
+
 (test-end "quoted-printable")
-- 
cgit v1.2.3