diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/email.scm | 10 |
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 ") |