diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-28 09:47:26 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-07-07 21:14:09 +0200 |
| commit | c4ee01830a54506125f61672f89bfbed1beb0c23 (patch) | |
| tree | bd07d7427e9517135a03fba87ae4ffcc6a79d8f9 | |
| parent | Tests '--skip'-flag now uses test names. (diff) | |
| download | calp-c4ee01830a54506125f61672f89bfbed1beb0c23.tar.gz calp-c4ee01830a54506125f61672f89bfbed1beb0c23.tar.xz | |
Group base64 tests.
| -rw-r--r-- | tests/test/base64.scm | 32 |
1 files changed, 17 insertions, 15 deletions
diff --git a/tests/test/base64.scm b/tests/test/base64.scm index 61ac8856..b24d2e8b 100644 --- a/tests/test/base64.scm +++ b/tests/test/base64.scm @@ -9,21 +9,23 @@ :use-module (srfi srfi-88) :use-module (base64)) -;; Tests borrowed directly from RFC4648 -(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-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")) +(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 |