diff options
| author | Arun Isaac | 2018-09-15 16:09:03 +0530 |
|---|---|---|
| committer | Arun Isaac | 2018-09-15 16:10:27 +0530 |
| commit | 77e1338fc5b3506d5557fae34178f9447c83a72d (patch) | |
| tree | 5a22054d93d370817c7e211cd706b4373a0a80e9 | |
| parent | 11673f90e2c71c5a127b8ffbd71db22c704e2c2e (diff) | |
| download | guile-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.
| -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") |