diff options
| -rw-r--r-- | tests/email.scm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/tests/email.scm b/tests/email.scm index 50625f1..f283e71 100644 --- a/tests/email.scm +++ b/tests/email.scm @@ -533,6 +533,20 @@ Content-Type: text/plain; charset=utf-8 (subtype . octet-stream)) (content-transfer-encoding . binary))) +(test-expect-fail + "Trace with only one Received header must be a list of lists, not a list") + +(test-alist= "Trace with only one Received header must be a list of lists, not a list" + (parse-email-headers + "Received: from foo; Sun, 24 Jan 2021 13:45:20 -0500 +") + `((trace (received "from foo" + ,(make-date 0 20 45 13 24 1 2021 -18000))) + (content-type (type . text) + (subtype . plain) + (charset . "utf-8")) + (content-transfer-encoding . 7bit))) + ;;; ;;; Email addresses |