From 6064f0e4b33735b1b22a78675f47d5cd24824185 Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Sun, 7 Nov 2021 10:04:16 +0100 Subject: [PATCH] Add more test cases for base45 decoder --- site-lisp/db-utils.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/site-lisp/db-utils.el b/site-lisp/db-utils.el index d2cee17..ca51480 100644 --- a/site-lisp/db-utils.el +++ b/site-lisp/db-utils.el @@ -521,8 +521,11 @@ Does not replace CRLF with CRCRLF, and so on." ("1A6VF61:64R6F4F%EDM-C6H6 8DKQEWF6V4761" "19287349wjiqf72yhasd29823") ;; Bytes in the returned strings are actually numbers between 0 and ;; 255; no character conversion (or something like that) is conducted - ;; here - ("6BFOXN" ,(string 120 156 187 212))) + ;; here. + ("6BFOXN" ,(string 120 156 187 212)) + ;; Test cases from https://github.com/Netnod/base45. + ("%69 VD92EX0" "Hello!!") + ("VV4:97Y+AHA7MY831" "%69 VD92EX0")) (-lambda ((in out)) (should (equal out (db/base45-decode-string in))))))