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