diff options
| -rw-r--r-- | tests/email.scm | 12 |
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") |