aboutsummaryrefslogtreecommitdiff
path: root/tests/test/base64.scm
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--tests/test/base64.scm (renamed from tests/base64.scm)7
1 files changed, 4 insertions, 3 deletions
diff --git a/tests/base64.scm b/tests/test/base64.scm
index 59a8784c..3463432e 100644
--- a/tests/base64.scm
+++ b/tests/test/base64.scm
@@ -3,8 +3,10 @@
;; Examples from RFC4648
;;; Code:
-(((base64) base64encode base64decode))
-
+(define-module (test base64)
+ :use-module (srfi srfi-64)
+ :use-module (srfi srfi-88)
+ :use-module ((base64) :select (base64encode base64decode)))
(test-equal "" (base64encode ""))
(test-equal "Zg==" (base64encode "f"))
@@ -13,7 +15,6 @@
(test-equal "Zm9vYg==" (base64encode "foob"))
(test-equal "Zm9vYmE=" (base64encode "fooba"))
(test-equal "Zm9vYmFy" (base64encode "foobar"))
-
(test-equal "" (base64decode ""))
(test-equal "f" (base64decode "Zg=="))
(test-equal "fo" (base64decode "Zm8="))