diff options
Diffstat (limited to 'tests/email.scm')
| -rw-r--r-- | tests/email.scm | 52 |
1 files changed, 47 insertions, 5 deletions
diff --git a/tests/email.scm b/tests/email.scm index ab2a408..856a5b9 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 Arun Isaac <arunisaac@systemreboot.net> +;;; Copyright © 2018, 2019 Arun Isaac <arunisaac@systemreboot.net> ;;; ;;; This file was adapted from guile-debbugs and is part of guile-email. ;;; @@ -51,6 +51,8 @@ ;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. (use-modules (email email) + (ice-9 binary-ports) + (ice-9 iconv) (srfi srfi-19) (srfi srfi-64)) @@ -100,19 +102,59 @@ Content-Length: 4349 (x-mailer . "FooMail 4.0 4.03 (SMT460B92F)") (content-length . "4349"))) +(test-equal "email with 8 bit encoding and non UTF-8 charset" + (call-with-input-file "tests/email-with-8bit-encoding-and-non-utf8-charset" + (compose parse-email get-bytevector-all)) + (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 . "ISO-8859-7")) + (content-transfer-encoding . 8bit)) + "Hello Foo’.")) + +(test-equal "multipart email with a 8 bit encoding and non UTF-8 charset part" + (call-with-input-file "tests/multipart-email-with-a-8bit-encoding-and-non-utf8-charset-part" + (compose parse-email get-bytevector-all)) + (make-email + `((content-transfer-encoding . 7bit) + (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 . multipart) + (subtype . mixed) + (boundary . "boundary"))) + (list (make-mime-entity + `((content-type (type . text) + (subtype . plain) + (charset . "ISO-8859-7")) + (content-transfer-encoding . 8bit)) + "Hello Foo’.")))) + (test-equal "handle truncated multipart message gracefully" ((module-ref (resolve-module '(email email)) 'body->mime-entities) - "--boundary + (string->bytevector + "--boundary Content-Type: text/plain foo -" +" "utf-8") "boundary") - (list "Content-Type: text/plain + (list (string->bytevector "Content-Type: text/plain foo -")) +" "utf-8"))) (test-equal "parse name-addr email address" (parse-email-address "Foo <foo@example.org>") |