From aec25de053a0eabe58f1c5b0d6ff66d296e2c5ca Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sun, 21 Jul 2019 21:39:24 +0530
Subject: 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.
---
 tests/email.scm | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'tests/email.scm')

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