diff --git a/site-lisp/db-utils.el b/site-lisp/db-utils.el index 73bd991..d2cee17 100644 --- a/site-lisp/db-utils.el +++ b/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)))))))