Fix bug in parser

2021-11-04 10:24:22 +02:00
parent a47d4903cb
commit 5182c47a19
2 changed files with 37 additions and 22 deletions
--- a/test/Test/Data/Email.hs
+++ b/test/Test/Data/Email.hs
@@ -31,4 +31,7 @@ tests = testGroup "Data.Email"
  [ testCase "Can parse a sample email" $ do
      got <- parseToList sample
      got @?= [ From "me@example.com", To ["you@example.com"]]
+  , testCase "Combined mailto" $ do
+      let got = decode "To: James Doe<james.doe@example.com<mailto:james.doe@example.com>>"
+      got @?= Right (To ["james.doe@example.com"])
  ]