From f7716ac1a87649cad96242f2d5bf0a987d7f430c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 7 Mar 2022 15:31:00 +0100 Subject: Add new tests. --- tests/base64.scm | 23 ----------------------- 1 file changed, 23 deletions(-) delete mode 100644 tests/base64.scm (limited to 'tests/base64.scm') diff --git a/tests/base64.scm b/tests/base64.scm deleted file mode 100644 index 59a8784c..00000000 --- a/tests/base64.scm +++ /dev/null @@ -1,23 +0,0 @@ -;;; Commentary: -;; Test that Base64 encoding and decoding works -;; Examples from RFC4648 -;;; Code: - -(((base64) base64encode base64decode)) - - -(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")) -- cgit v1.2.3