Add more test cases for base45 decoder function

site-lisp/db-utils.el

@@ -514,9 +514,15 @@ Does not replace CRLF with CRCRLF, and so on."
 (ert-deftest db/base45-decode-string--basic-tests ()
   "Test basic decoding examples"
   ;; dash is funny :)
-  (-each '(("QED8WEX0" "ietf!")
+  (-each `(("QED8WEX0" "ietf!")
            ("X.CT3EGEC" "foobar")
-           ("x.ct3egec" "foobar"))
+           ("x.ct3egec" "foobar")
+           ("/Y81EC.OE+EDR342%EX0" "Emacs is Fun!")
+           ("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)))
     (-lambda ((in out))
       (should (equal out (db/base45-decode-string in))))))
 
@@ -545,7 +551,7 @@ number of bytes has been inserted."
       (message "%s" (string-to-list (buffer-string)))
       ;; (120 4194204 4194235 4194260) is Emacs' internal representation of
       ;; x\234\273\324, where the last three bytes are raw-byte; when
-      ;; non-raw-bytes would have been inserted, it would be (120 156 …)
+      ;; non-raw-bytes would have been inserted, it would be (120 156 187 212).
       (should (equal '(120 4194204 4194235 4194260)
                      (string-to-list (buffer-string)))))))