From 6f15087ac668f49e31bd1d138f67438b8e9e49ed Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 14 Nov 2018 00:23:07 +0530
Subject: 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.
---
 tests/email.scm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'tests/email.scm')

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")
-- 
cgit v1.2.3