From 695fdd97906bb5a3695542037a516aa0f5d45d07 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Wed, 26 Apr 2023 17:26:02 -0400 Subject: Replace base64 decoder with Apache 2.0 licensed version. --- tests/base64.scm | 32 ++++++++++++++++++++++++++++++++ 1 file changed, 32 insertions(+) create mode 100644 tests/base64.scm (limited to 'tests/base64.scm') diff --git a/tests/base64.scm b/tests/base64.scm new file mode 100644 index 0000000..dba4f3b --- /dev/null +++ b/tests/base64.scm @@ -0,0 +1,32 @@ +;;; Chickadee Game Toolkit +;;; Copyright © 2023 David Thompson +;;; +;;; Licensed under the Apache License, Version 2.0 (the "License"); +;;; you may not use this file except in compliance with the License. +;;; You may obtain a copy of the License at +;;; +;;; http://www.apache.org/licenses/LICENSE-2.0 +;;; +;;; Unless required by applicable law or agreed to in writing, software +;;; distributed under the License is distributed on an "AS IS" BASIS, +;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +;;; See the License for the specific language governing permissions and +;;; limitations under the License. + +(define-module (tests base64) + #:use-module (chickadee base64) + #:use-module (rnrs bytevectors) + #:use-module (srfi srfi-64) + #:use-module (tests utils)) + +(with-tests "base64" + (test-group "base64-decode" + (test-equal "encoded text no padding" + "hello!" + (utf8->string (base64-decode "aGVsbG8h"))) + (test-equal "encoded text with one byte of padding" + "hello" + (utf8->string (base64-decode "aGVsbG8="))) + (test-equal "encoded text with two bytes of padding" + "what's up?" + (utf8->string (base64-decode "d2hhdCdzIHVwPw=="))))) -- cgit v1.2.3