blob: 724f2db511ea767a608ef36473d8ba268564bcd4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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)))))))
|