diff options
Diffstat (limited to 'tests/email.scm')
| -rw-r--r-- | tests/email.scm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/email.scm b/tests/email.scm index 50d1bea..dd305b6 100644 --- a/tests/email.scm +++ b/tests/email.scm @@ -590,6 +590,10 @@ Content-Type: text/plain; charset=utf-8 (parse-email-address "Foo P. Bar <foo@example.com>") '((name . "Foo P. Bar") (address . "foo@example.com"))) +(test-equal "tolerate email addresses with parentheses in name" + (parse-email-address "Foo(Bar <foo@example.com>") + '((name . "Foo(Bar") (address . "foo@example.com"))) + ;;; ;;; MIME encoded words |