summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/email.scm10
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/email.scm b/tests/email.scm
index 481909a..50d1bea 100644
--- a/tests/email.scm
+++ b/tests/email.scm
@@ -1,6 +1,6 @@
;;; guile-email --- Guile email parser
;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net>
-;;; Copyright © 2018, 2019, 2020, 2021 Arun Isaac <arunisaac@systemreboot.net>
+;;; Copyright © 2018, 2019, 2020, 2021, 2023 Arun Isaac <arunisaac@systemreboot.net>
;;; Copyright © 2023 Andrew Whatson <whatson@tailcall.au>
;;;
;;; This file was adapted from guile-debbugs and is part of guile-email.
@@ -501,7 +501,7 @@ copyright =A9")
(charset . "utf-8"))
(content-transfer-encoding . 7bit)))
-(test-alist= "Parse obsolete Received header"
+(test-alist= "parse obsolete Received header"
(parse-email-headers
"Received: by foo.bar.com id ZZZ55555
Received: from zzz ([1.2.3.5]) by ooo.ooo.com with Maccrosoft SMTPSVC(5.5.1877.197.19)
@@ -513,7 +513,7 @@ Received: from zzz ([1.2.3.5]) by ooo.ooo.com with Maccrosoft SMTPSVC(5.5.1877.
(charset . "utf-8"))
(content-transfer-encoding . 7bit)))
-(test-alist= "Parse names with more than two words"
+(test-alist= "parse names with more than two words"
(parse-email-headers
"From: Foo Bar Foobar <foo@bar.org>
")
@@ -525,7 +525,7 @@ Received: from zzz ([1.2.3.5]) by ooo.ooo.com with Maccrosoft SMTPSVC(5.5.1877.
(content-transfer-encoding . 7bit)))
;; See §6.4 in RFC2045.
-(test-alist= "Assume application/octet-stream Content-Type if Content-Transfer-Encoding is unrecognized"
+(test-alist= "assume application/octet-stream Content-Type if Content-Transfer-Encoding is unrecognized"
(parse-email-headers
"Content-Transfer-Encoding: some-unrecognized-encoding
Content-Type: text/plain; charset=utf-8
@@ -549,7 +549,7 @@ Content-Type: text/plain; charset=utf-8
(content-transfer-encoding . 7bit)))
;; TODO: Fix this test once previous test is addressed.
-(test-alist= "Parse Received header with two tokens but no timestamp"
+(test-alist= "parse Received header with two tokens but no timestamp"
(parse-email-headers
"Received: from foo
")