diff options
Diffstat (limited to 'tests')
| -rwxr-xr-x | tests/quoted-printable.scm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/quoted-printable.scm b/tests/quoted-printable.scm index 608a937..f3dd5eb 100755 --- a/tests/quoted-printable.scm +++ b/tests/quoted-printable.scm @@ -49,6 +49,12 @@ abriquent pour te la vendre une =C3=A2me vulgaire.") (string->bytevector decoded-text charset)) #\newline)))) +(test-equal "quoted-printable encoding of =" + (quoted-printable-encode + (string->bytevector "=" "UTF-8")) + (string-append "=" (string-upcase (number->string + (char->integer #\=) 16)))) + (let ((encoded-text "=A1Hola,_se=F1or!") (decoded-text "¡Hola, señor!") (charset "ISO-8859-1")) |