summaryrefslogtreecommitdiff
path: root/tests/quoted-printable.scm
diff options
context:
space:
mode:
authorArun Isaac2018-09-15 16:09:03 +0530
committerArun Isaac2018-09-15 16:10:27 +0530
commit77e1338fc5b3506d5557fae34178f9447c83a72d (patch)
tree5a22054d93d370817c7e211cd706b4373a0a80e9 /tests/quoted-printable.scm
parent11673f90e2c71c5a127b8ffbd71db22c704e2c2e (diff)
downloadguile-email-77e1338fc5b3506d5557fae34178f9447c83a72d.tar.gz
guile-email-77e1338fc5b3506d5557fae34178f9447c83a72d.tar.lz
guile-email-77e1338fc5b3506d5557fae34178f9447c83a72d.zip
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.
Diffstat (limited to 'tests/quoted-printable.scm')
-rwxr-xr-xtests/quoted-printable.scm5
1 files changed, 5 insertions, 0 deletions
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")