diff options
| author | Arun Isaac | 2023-01-06 14:24:26 +0000 |
|---|---|---|
| committer | Arun Isaac | 2023-01-06 14:27:18 +0000 |
| commit | 3a3d695913e04d181df05048777ff2a335dc3120 (patch) | |
| tree | f50b7b50a20dec56ad7bf730a7bff2f585c3da8f | |
| parent | aa6a58a152b8ebe0e786682ffd84239ed862dba4 (diff) | |
| download | guile-email-3a3d695913e04d181df05048777ff2a335dc3120.tar.gz guile-email-3a3d695913e04d181df05048777ff2a335dc3120.tar.lz guile-email-3a3d695913e04d181df05048777ff2a335dc3120.zip | |
tests: Downcase test names.
This is admittedly a nitpicky change, but it slightly improves
consistency.
* tests/email.scm ("parse obsolete Received header", "parse names with
more than two words", "assume application/octet-stream Content-Type if
Content-Transfer-Encoding is unrecognized", "parse Received header
with two tokens but no timestamp"): Downcase test names.
| -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 ") |