diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/email.scm | 53 |
1 files changed, 53 insertions, 0 deletions
diff --git a/tests/email.scm b/tests/email.scm index 177391e..d0eed13 100644 --- a/tests/email.scm +++ b/tests/email.scm @@ -102,6 +102,59 @@ Content-Length: 4349 (x-mailer . "FooMail 4.0 4.03 (SMT460B92F)") (content-length . "4349"))) +(test-equal "RFC2046 5.1.1. Common syntax" + (parse-email + (string->bytevector + "From: Nathaniel Borenstein <nsb@bellcore.com> +To: Ned Freed <ned@innosoft.com> +Date: Sun, 21 Mar 1993 23:56:48 -0800 (PST) +Subject: Sample message +MIME-Version: 1.0 +Content-type: multipart/mixed; boundary=\"simple boundary\" + +This is the preamble. It is to be ignored, though it +is a handy place for composition agents to include an +explanatory note to non-MIME conformant readers. + +--simple boundary + +This is implicitly typed plain US-ASCII text. +It does NOT end with a linebreak. +--simple boundary +Content-type: text/plain; charset=us-ascii + +This is explicitly typed plain US-ASCII text. +It DOES end with a linebreak. + +--simple boundary-- + +This is the epilogue. It is also to be ignored. +" "utf-8")) + (make-email + `((content-transfer-encoding . 7bit) + (from ((name . "Nathaniel Borenstein") + (address . "nsb@bellcore.com"))) + (to ((name . "Ned Freed") + (address . "ned@innosoft.com"))) + (date . ,(make-date 0 48 56 23 21 3 1993 -28800)) + (subject . "Sample message") + (mime-version . "1.0") + (content-type (type . multipart) + (subtype . mixed) + (boundary . "simple boundary"))) + (list (make-mime-entity '((content-type (type . text) + (subtype . plain) + (charset . "utf-8")) + (content-transfer-encoding . 7bit)) + "This is implicitly typed plain US-ASCII text. +It does NOT end with a linebreak.") + (make-mime-entity '((content-transfer-encoding . 7bit) + (content-type (type . text) + (subtype . plain) + (charset . "us-ascii"))) + "This is explicitly typed plain US-ASCII text. +It DOES end with a linebreak.")))) + (test-equal "decode MIME entity without headers" ((module-ref (resolve-module '(email email)) 'parse-mime-entity) |