diff options
Diffstat (limited to 'tests/test/base64.scm')
-rw-r--r-- | tests/test/base64.scm | 43 |
1 files changed, 0 insertions, 43 deletions
diff --git a/tests/test/base64.scm b/tests/test/base64.scm deleted file mode 100644 index b24d2e8b..00000000 --- a/tests/test/base64.scm +++ /dev/null @@ -1,43 +0,0 @@ -;;; Commentary: -;; Test that Base64 encoding and decoding works -;; Examples from RFC4648 -;;; Code: - -(define-module (test base64) - :use-module (srfi srfi-64) - :use-module (srfi srfi-64 test-error) - :use-module (srfi srfi-88) - :use-module (base64)) - -(test-group "Tests from RFC 4648" - (test-group "Decoding tests" - (test-equal "" (base64encode "")) - (test-equal "Zg==" (base64encode "f")) - (test-equal "Zm8=" (base64encode "fo")) - (test-equal "Zm9v" (base64encode "foo")) - (test-equal "Zm9vYg==" (base64encode "foob")) - (test-equal "Zm9vYmE=" (base64encode "fooba")) - (test-equal "Zm9vYmFy" (base64encode "foobar"))) - (test-group "Encoding tests" - (test-equal "" (base64decode "")) - (test-equal "f" (base64decode "Zg==")) - (test-equal "fo" (base64decode "Zm8=")) - (test-equal "foo" (base64decode "Zm9v")) - (test-equal "foob" (base64decode "Zm9vYg==")) - (test-equal "fooba" (base64decode "Zm9vYmE=")) - (test-equal "foobar" (base64decode "Zm9vYmFy")))) - - -;; Other tests - -(test-error "Invalid base64" - 'decoding-error - (base64decode "@@@@")) - -(test-error "To short base64" - 'decoding-error - (base64decode "=")) - -(test-equal "AAECAw==" (bytevector->base64-string #vu8(0 1 2 3))) - -(test-equal #vu8(0 1 2 3) (base64-string->bytevector "AAECAw==")) |