diff options
| author | Arun Isaac | 2019-07-21 21:39:24 +0530 |
|---|---|---|
| committer | Arun Isaac | 2019-07-21 21:39:24 +0530 |
| commit | aec25de053a0eabe58f1c5b0d6ff66d296e2c5ca (patch) | |
| tree | b79ec617d2ccbf22a8c5ec4b7feb311ab8b3df79 | |
| parent | 5b0fcba423fbac2b39fcf2d8bc4674acfd7cc1c7 (diff) | |
| download | guile-email-aec25de053a0eabe58f1c5b0d6ff66d296e2c5ca.tar.gz guile-email-aec25de053a0eabe58f1c5b0d6ff66d296e2c5ca.tar.lz guile-email-aec25de053a0eabe58f1c5b0d6ff66d296e2c5ca.zip | |
tests: Add test for decoding MIME encoded phrases.
* tests/email.scm ("decode MIME encoded phrases that contain multiple
MIME encoded words each with their own encoding"): New test.
| -rw-r--r-- | tests/email.scm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/email.scm b/tests/email.scm index a2a38df..fb2c45b 100644 --- a/tests/email.scm +++ b/tests/email.scm @@ -138,4 +138,10 @@ foo "Foo =?UTF-8?Q?B=C3=A3r?=") "Foo Bãr") +(test-equal "decode MIME encoded phrases that contain multiple MIME encoded words each with their own encoding" + ((module-ref (resolve-module '(email email)) + 'decode-mime-encoded-word) + "=?iso-8859-1?Q?=A1Hola,_se=F1or!?= =?UTF-8?Q?B=C3=A3r?=") + "¡Hola, señor! Bãr") + (test-end "email") |