From 4ff159505d35202861d09859859c98997bf55bcd Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Sun, 24 Oct 2021 01:04:11 +0530 Subject: 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. --- tests/email.scm | 15 +++++++++++++++ 1 file changed, 15 insertions(+) (limited to 'tests') 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 ") '((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 ") '((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) -- cgit v1.2.3