aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--tests/email.scm30
1 files changed, 30 insertions, 0 deletions
diff --git a/tests/email.scm b/tests/email.scm
index 766c402..ac60f0e 100644
--- a/tests/email.scm
+++ b/tests/email.scm
@@ -243,6 +243,36 @@ So, \"Hello\".
"This is a message just to say hello.
So, \"Hello\"."))
+(test-email= "RFC5322 A.6.3. Obsolete white space and comments"
+ (parse-email
+ (string->bytevector
+ "From : John Doe <jdoe@machine(comment). example>
+To : Mary Smith
+
+ <mary@example.net>
+Subject : Saying Hello
+Date : Fri, 21 Nov 1997 09(comment): 55 : 06 -0600
+Message-ID : <1234 @ local(blah) .machine .example>
+
+This is a message just to say hello.
+So, \"Hello\".
+"
+ "utf-8"))
+ (make-email
+ `((from ((name . "John Doe")
+ (address . "jdoe@machine.example")))
+ (to ((name . "Mary Smith")
+ (address . "mary@example.net")))
+ (subject . "Saying Hello")
+ (date . ,(make-date 0 6 55 9 21 11 1997 -21600))
+ (message-id . "1234@local.machine.example")
+ (content-type (type . text)
+ (subtype . plain)
+ (charset . "utf-8"))
+ (content-transfer-encoding . 7bit))
+ "This is a message just to say hello.
+So, \"Hello\"."))
+
(test-email= "RFC2046 5.1.1. Common syntax"
(parse-email
(string->bytevector