From 81c3ae5e6d80efd3c87f42552876697c498005d2 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 12 Sep 2018 17:56:13 +0530
Subject: quoted-printable: Add q-encoding-encode.
* email/quoted-printable.scm (q-encoding-encode): New function.
* tests/quoted-printable.scm (q-encoding wikipedia example): Rename to
...
(q-encoding wikipedia example: decoding): ... this.
(q-encoding wikipedia example: encoding): New test.
---
tests/quoted-printable.scm | 18 +++++++++++++-----
1 file changed, 13 insertions(+), 5 deletions(-)
(limited to 'tests')
diff --git a/tests/quoted-printable.scm b/tests/quoted-printable.scm
index a0f0369..608a937 100755
--- a/tests/quoted-printable.scm
+++ b/tests/quoted-printable.scm
@@ -49,10 +49,18 @@ abriquent pour te la vendre une =C3=A2me vulgaire.")
(string->bytevector decoded-text charset))
#\newline))))
-(test-equal "q-encoding wikipedia example"
- (bytevector->string
- (q-encoding-decode "=A1Hola,_se=F1or!")
- "ISO-8859-1")
- "¡Hola, señor!")
+(let ((encoded-text "=A1Hola,_se=F1or!")
+ (decoded-text "¡Hola, señor!")
+ (charset "ISO-8859-1"))
+ (test-equal "q-encoding wikipedia example: decoding"
+ (q-encoding-encode
+ (string->bytevector decoded-text charset))
+ encoded-text)
+
+ (test-equal "q-encoding wikipedia example: encoding"
+ (bytevector->string
+ (q-encoding-decode encoded-text)
+ charset)
+ decoded-text))
(test-end "quoted-printable")
--
cgit v1.2.3