From 9d2c3b593a583eff3a1aa4ce95808644bb0b54ae Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sun, 24 Oct 2021 02:57:18 +0530
Subject: tests: Return trace with only one Receieved header as a list of
 lists.

* tests/email.scm ("Trace with only one Received header must be a list
of lists, not a list"): New test.
---
 tests/email.scm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

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
-- 
cgit v1.2.3