diff options
| author | Arun Isaac | 2018-11-14 00:23:07 +0530 |
|---|---|---|
| committer | Arun Isaac | 2018-11-14 00:23:07 +0530 |
| commit | 6f15087ac668f49e31bd1d138f67438b8e9e49ed (patch) | |
| tree | 18b3e0fd2446b466ad22c2bd51509f4ef6676af0 /tests/email.scm | |
| parent | 2448f2500e04190206c27812475f83df08439d1b (diff) | |
| download | guile-email-6f15087ac668f49e31bd1d138f67438b8e9e49ed.tar.gz guile-email-6f15087ac668f49e31bd1d138f67438b8e9e49ed.tar.lz guile-email-6f15087ac668f49e31bd1d138f67438b8e9e49ed.zip | |
tests: Add tests for decoding MIME encoded words.
* tests/email.scm ("decode MIME encoded word: wikipedia example",
"decode MIME encoded phrases that mix ASCII text and MIME encoded
words"): New tests.
Diffstat (limited to 'tests/email.scm')
| -rw-r--r-- | tests/email.scm | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/email.scm b/tests/email.scm index a91ab16..a2a38df 100644 --- a/tests/email.scm +++ b/tests/email.scm @@ -126,4 +126,16 @@ foo (parse-email-address "foo@example.org (Foo)") '((name . "Foo") (address . "foo@example.org"))) +(test-equal "decode MIME encoded word: wikipedia example" + ((module-ref (resolve-module '(email email)) + 'decode-mime-encoded-word) + "=?iso-8859-1?Q?=A1Hola,_se=F1or!?=") + "¡Hola, señor!") + +(test-equal "decode MIME encoded phrases that mix ASCII text and MIME encoded words" + ((module-ref (resolve-module '(email email)) + 'decode-mime-encoded-word) + "Foo =?UTF-8?Q?B=C3=A3r?=") + "Foo Bãr") + (test-end "email") |