summaryrefslogtreecommitdiff
path: root/tests/email.scm
diff options
context:
space:
mode:
Diffstat (limited to 'tests/email.scm')
-rw-r--r--tests/email.scm13
1 files changed, 12 insertions, 1 deletions
diff --git a/tests/email.scm b/tests/email.scm
index 83ef91f..469389a 100644
--- a/tests/email.scm
+++ b/tests/email.scm
@@ -1,6 +1,6 @@
;;; guile-email --- Guile email parser
;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net>
-;;; Copyright © 2018, 2019, 2020 Arun Isaac <arunisaac@systemreboot.net>
+;;; Copyright © 2018, 2019, 2020, 2021 Arun Isaac <arunisaac@systemreboot.net>
;;;
;;; This file was adapted from guile-debbugs and is part of guile-email.
;;;
@@ -507,6 +507,17 @@ Received: from zzz ([1.2.3.5]) by ooo.ooo.com with Maccrosoft SMTPSVC(5.5.1877.
(charset . "utf-8"))
(content-transfer-encoding . 7bit)))
+(test-alist= "Parse names with more than two words"
+ (parse-email-headers
+ "From: Foo Bar Foobar <foo@bar.org>
+")
+ `((from ((name . "Foo Bar Foobar")
+ (address . "foo@bar.org")))
+ (content-type (type . text)
+ (subtype . plain)
+ (charset . "utf-8"))
+ (content-transfer-encoding . 7bit)))
+
(test-equal "parse name-addr email address"
(parse-email-address "Foo <foo@example.org>")
'((name . "Foo") (address . "foo@example.org")))