diff options
| -rwxr-xr-x | tests/quoted-printable.scm | 5 |
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") |