From aa6a58a152b8ebe0e786682ffd84239ed862dba4 Mon Sep 17 00:00:00 2001 From: Andrew Whatson Date: Thu, 5 Jan 2023 20:33:24 +1000 Subject: email: Support Date fields with missing seconds. * email/email.scm (parse-email-headers): Extend the date-time parser to match when seconds are missing, defaulting to "0". * tests/email.scm ("parse Date", "parse Date without seconds"): New tests. Signed-off-by: Arun Isaac --- tests/email.scm | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'tests/email.scm') diff --git a/tests/email.scm b/tests/email.scm index a6d2b46..481909a 100644 --- a/tests/email.scm +++ b/tests/email.scm @@ -1,6 +1,7 @@ ;;; guile-email --- Guile email parser ;;; Copyright © 2017 Ricardo Wurmus ;;; Copyright © 2018, 2019, 2020, 2021 Arun Isaac +;;; Copyright © 2023 Andrew Whatson ;;; ;;; This file was adapted from guile-debbugs and is part of guile-email. ;;; @@ -558,6 +559,16 @@ Content-Type: text/plain; charset=utf-8 (charset . "utf-8")) (content-transfer-encoding . 7bit))) +(test-alist= "parse Date without seconds" + (parse-email-headers + "Date: Tue, 22 Nov 94 17:52 GMT +") + `((date . ,(make-date 0 0 52 17 22 11 1994 0)) + (content-type (type . text) + (subtype . plain) + (charset . "utf-8")) + (content-transfer-encoding . 7bit))) + ;;; ;;; Email addresses -- cgit v1.2.3