diff options
| -rw-r--r-- | tests/email.scm | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/tests/email.scm b/tests/email.scm index 469389a..52f38b6 100644 --- a/tests/email.scm +++ b/tests/email.scm @@ -90,6 +90,11 @@ (test-begin "email") + +;;; +;;; Emails +;;; + (test-alist= "parse email headers" (parse-email-headers "Received: by foo.bar.com id ZZZ55555; Thu, 31 May 2001 16:38:04 -1000 (HST) @@ -518,6 +523,11 @@ Received: from zzz ([1.2.3.5]) by ooo.ooo.com with Maccrosoft SMTPSVC(5.5.1877. (charset . "utf-8")) (content-transfer-encoding . 7bit))) + +;;; +;;; Email addresses +;;; + (test-equal "parse name-addr email address" (parse-email-address "Foo <foo@example.org>") '((name . "Foo") (address . "foo@example.org"))) @@ -534,6 +544,11 @@ Received: from zzz ([1.2.3.5]) by ooo.ooo.com with Maccrosoft SMTPSVC(5.5.1877. (parse-email-address "Foo P. Bar <foo@example.com>") '((name . "Foo P. Bar") (address . "foo@example.com"))) + +;;; +;;; MIME encoded words +;;; + (test-equal "decode MIME encoded word: wikipedia example" ((module-ref (resolve-module '(email email)) 'decode-mime-encoded-word) |