diff options
| author | Arun Isaac | 2021-10-24 01:04:11 +0530 |
|---|---|---|
| committer | Arun Isaac | 2021-10-24 01:04:11 +0530 |
| commit | 4ff159505d35202861d09859859c98997bf55bcd (patch) | |
| tree | e76650fa7d4fbdb06caecc25fa5160218be62269 | |
| parent | 7a4f28752dd142bd85939d840393c4cd8421f784 (diff) | |
| download | guile-email-4ff159505d35202861d09859859c98997bf55bcd.tar.gz guile-email-4ff159505d35202861d09859859c98997bf55bcd.tar.lz guile-email-4ff159505d35202861d09859859c98997bf55bcd.zip | |
tests: Paginate tests/email.scm.
tests/email.scm is getting really long. Pagination make it easier to
understand.
* tests/email.scm: Split into three pages---Emails, Email addresses
and MIME encoded words.
| -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) |