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.

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