diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/quoted-printable.scm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/tests/quoted-printable.scm b/tests/quoted-printable.scm index bfbd985..415feb0 100644 --- a/tests/quoted-printable.scm +++ b/tests/quoted-printable.scm @@ -1,5 +1,6 @@ ;;; guile-email --- Guile email parser ;;; Copyright © 2018, 2020 Arun Isaac <arunisaac@systemreboot.net> +;;; Copyright © 2023 Andrew Whatson <whatson@tailcall.au> ;;; ;;; This file is part of guile-email. ;;; @@ -67,6 +68,12 @@ abriquent pour te la vendre une =C3=A2me vulgaire.") (quoted-printable-escape-encode-char #\return) (quoted-printable-escape-encode-char #\newline))) +(test-equal "quoted-printable decoding of soft line breaks (=\\n)" + (quoted-printable-decode "=\n") #vu8()) + +(test-equal "quoted-printable decoding of soft line breaks (=\\r\\n)" + (quoted-printable-decode "=\r\n") #vu8()) + (test-assert "quoted-printable random bytevector: quoted-printable-encode and quoted-printable-decode are inverses of each other" (every (lambda (len) (let ((x (random-bytevector len))) |