summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-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")