[nongnu] elpa/base32 c38eb3a470 3/5: tests: Add standalone base32 encode/decode tests

[ELPA Syncer]

branch: elpa/base32
commit c38eb3a4706cd9fc006dcc21da83c9b3635c4e5d
Author: Vivek Das Mohapatra <vi...@collabora.com>
Commit: Vivek Das Mohapatra <vi...@collabora.com>

    tests: Add standalone base32 encode/decode tests
---
 Makefile             | 11 +++++++---
 tests/test-base32.el | 62 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 70 insertions(+), 3 deletions(-)

diff --git a/Makefile b/Makefile
index fc6f360f2e..cde6f9646d 100755
--- a/Makefile
+++ b/Makefile
@@ -5,7 +5,7 @@
 
 ELCS  := $(patsubst %.el,%.elc,$(wildcard *.el))
 
-.PHONY: check all elcs
+.PHONY: check all elcs check-%
 
 all: check
 
@@ -18,6 +18,11 @@ clean:
 
 elcs: $(ELCS)
 
-check: $(ELCS)
-       emacs -Q -q --batch -l tests/test-totp.el
+check-%:
+       emacs -Q -q --batch -l tests/test-$*.el
+
+check-base32: base32.elc
+check-totp: $(ELCS) check-base32
+
+check: check-totp
 
diff --git a/tests/test-base32.el b/tests/test-base32.el
new file mode 100644
index 0000000000..d61acded9b
--- /dev/null
+++ b/tests/test-base32.el
@@ -0,0 +1,62 @@
+;; -*- mode: emacs-lisp; lexical-binding: t; -*-
+;; Copyright © 2024 Vivek Das Moapatra <vi...@etla.org>
+;; SPDX-License-Identifier: GPL-3.0-or-later
+(defvar test-base32-source-dir nil)
+
+(eval-and-compile
+  (require 'loadhist)
+  (let ((load-path load-path)
+        (this-file (or load-file-name
+                       byte-compile-current-file
+                       buffer-file-name)))
+    (setq test-base32-source-dir
+          (expand-file-name (concat (file-name-directory this-file) "/..")))
+    (message "running tests in %s" test-base32-source-dir)
+    (add-to-list 'load-path test-base32-source-dir)
+    (mapc #'require '(base32))
+    (mapcar (lambda (F) (message "%S loaded from %S" F (feature-file F))) 
features)))
+
+(defvar test-base32-test-data
+       '((""       . "")
+         ("f"      . "MY======")
+         ("fo"     . "MZXQ====")
+         ("foo"    . "MZXW6===")
+         ("foob"   . "MZXW6YQ=")
+         ("fooba"  . "MZXW6YTB")
+         ("foobar" . "MZXW6YTBOI======")
+         ;; now try with the = section stripped.
+         ;; naming no providers called dropbox *cough*
+         ("f"      . "MY")
+         ("fo"     . "MZXQ")
+         ("foo"    . "MZXW6")
+         ("foob"   . "MZXW6YQ")
+         ("foobar" . "MZXW6YTBOI")))
+
+(defun test-base32-compare-payloads (a b)
+  (or (equal a b)
+      (and (stringp a)
+           (stringp b)
+           (or  (and (string-match "^\\([a-z0-9]+\\)=+$" b)
+                     (equal a (match-string 1 b)))
+                (and (string-match "^\\([a-z0-9]+\\)=+$" a)
+                     (equal b (match-string 1 a)))))))
+
+(defun test-base32-xcode (x)
+  (let ((decoded (car x))
+        (encoded (cdr x))
+        test-decoded
+        test-encoded
+        stub)
+     (setq stub         (format "Checking decode of %S from %S: " decoded 
encoded)
+           test-decoded (base32-decode encoded))
+     (message "%s: %s [%S %S]"
+              (if (equal test-decoded decoded) "PASS" "FAIL") stub
+              test-decoded decoded)
+     (setq stub         (format "Checking encode of %S from %S: " encoded 
decoded)
+           test-encoded (base32-encode decoded))
+     (message "%s: %s [%S %S]"
+              (if (test-base32-compare-payloads test-encoded encoded) "PASS" 
"FAIL")
+              stub
+              test-encoded encoded) ))
+
+(mapc #'test-base32-xcode test-base32-test-data)