diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/email.scm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/email.scm b/tests/email.scm index ca0ebc3..1a0ec34 100644 --- a/tests/email.scm +++ b/tests/email.scm @@ -312,6 +312,16 @@ body" "iso-8859-1")) (address . "foo@bar.org")))) "body")) +(test-equal "tolerate invalid charset" + (parse-email-headers + "Content-Type: text/plain; charset=foo +") + `((content-transfer-encoding . 7bit) + (content-type (type . text) + (subtype . plain) + (charset . "utf-8") + (charset . "foo")))) + (test-equal "parse name-addr email address" (parse-email-address "Foo <foo@example.org>") '((name . "Foo") (address . "foo@example.org"))) |