Add a base64 encoder and decoder

1 files changed, 17 insertions, 0 deletions

diff --git a/tests/base64-ok.scm b/tests/base64-ok.scm
new file mode 100644
index 0000000..724f2db
--- /dev/null
+++ b/tests/base64-ok.scm
@@ -0,0 +1,17 @@
+(use-modules
+ (webid-oidc testing)
+ ((webid-oidc stubs) #:prefix stubs:)
+ (rnrs bytevectors))
+
+(with-test-environment
+ "base64-ok"
+ (lambda ()
+   (let ((test "hello :)"))
+     (let ((encoded (stubs:base64-encode test)))
+       (unless (string? encoded)
+         (exit 1))
+       (let ((decoded (stubs:base64-decode encoded)))
+         (unless (bytevector? decoded)
+           (exit 2))
+         (unless (equal? test (utf8->string decoded))
+           (exit 3)))))))