aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorArun Isaac2019-07-21 21:39:24 +0530
committerArun Isaac2019-07-21 21:39:24 +0530
commitaec25de053a0eabe58f1c5b0d6ff66d296e2c5ca (patch)
treeb79ec617d2ccbf22a8c5ec4b7feb311ab8b3df79 /tests
parent5b0fcba423fbac2b39fcf2d8bc4674acfd7cc1c7 (diff)
downloadguile-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.
Diffstat (limited to 'tests')
-rw-r--r--tests/email.scm6
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")