aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--tests/email.scm12
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/email.scm b/tests/email.scm
index f56baee..a91ab16 100644
--- a/tests/email.scm
+++ b/tests/email.scm
@@ -114,4 +114,16 @@ foo
foo
"))
+(test-equal "parse name-addr email address"
+ (parse-email-address "Foo <foo@example.org>")
+ '((name . "Foo") (address . "foo@example.org")))
+
+(test-equal "parse addr-spec email address"
+ (parse-email-address "foo@example.org")
+ '((address . "foo@example.org")))
+
+(test-equal "parse emacs message mode parens style email address"
+ (parse-email-address "foo@example.org (Foo)")
+ '((name . "Foo") (address . "foo@example.org")))
+
(test-end "email")