From 19ad5dad64be7f9b2a261f3286f79d85a2fc6155 Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Sat, 5 Dec 2020 20:14:54 +0530 Subject: tests: Add example from RFC5322 A.6.3. * tests/email.scm ("RFC5322 A.6.3. Obsolete white space and comments"): New test. --- tests/email.scm | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) 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 +To : Mary Smith + + +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 -- cgit v1.2.3