From 712654d4c023a2ab13190c6905d313e0ba897965 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 2 Oct 2023 19:26:40 +0200 Subject: Rewrite test running system. --- tests/test/base64.scm | 43 ------------------------------------------- 1 file changed, 43 deletions(-) delete mode 100644 tests/test/base64.scm (limited to 'tests/test/base64.scm') 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==")) -- cgit v1.2.3