aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--tests/email.scm14
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