procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix gnus-base64-repad test failures

Browse source
This commit is contained in:
Lars Ingebrigtsen 2020-09-30 05:03:35 +02:00
parent 52afb2b104
commit 1993c4e300
1 changed files with 3 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
test/lisp/gnus/gnus-util-tests.el
View file

@ -151,10 +151,8 @@
(should (equal "Zg==" (gnus-base64-repad "Zg")))
(should (equal "Zg==" (gnus-base64-repad "Zg====")))
(should-error (gnus-base64-repad " ")
:type 'error)
(should-error (gnus-base64-repad "Zg== ")
:type 'error)
(should (equal (gnus-base64-repad " ") ""))
(should (equal (gnus-base64-repad "Zg== ") "Zg=="))
(should-error (gnus-base64-repad "Z?\x00g==")
:type 'error)
;; line-length
@ -166,8 +164,7 @@
(should (equal "Zm9vYmFy" (gnus-base64-repad "Zm9vYmFy" t)))
(should (equal "Zm9vYmFy" (gnus-base64-repad "Zm9v\r\nYmFy" nil)))
(should (equal "Zm9vYmFy" (gnus-base64-repad "Zm9v\r\nYmFy\n" nil)))
(should-error (gnus-base64-repad "Zm9v\r\n YmFy\r\n" nil)
:type 'error)
(should (equal (gnus-base64-repad "Zm9v\r\n YmFy\r\n" nil) "Zm9vYmFy"))
(should-error (gnus-base64-repad "Zm9v\r\nYmFy" nil 3)
:type 'error))