diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-03-07 15:31:00 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-03-07 20:29:14 +0100 |
| commit | f7716ac1a87649cad96242f2d5bf0a987d7f430c (patch) | |
| tree | b4b84951ef468fd644c42e9e0fee535d879f0387 /tests/test/base64.scm | |
| parent | Cleanup in (hnh util path). (diff) | |
| download | calp-f7716ac1a87649cad96242f2d5bf0a987d7f430c.tar.gz calp-f7716ac1a87649cad96242f2d5bf0a987d7f430c.tar.xz | |
Add new tests.
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=")) |