From 1993c4e300a455d4c40703e117ae0dd578c4eeed Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Wed, 30 Sep 2020 05:03:35 +0200 Subject: [PATCH] Fix gnus-base64-repad test failures --- test/lisp/gnus/gnus-util-tests.el | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/test/lisp/gnus/gnus-util-tests.el b/test/lisp/gnus/gnus-util-tests.el index ed33be46a3a..ec58032e84e 100644 --- a/test/lisp/gnus/gnus-util-tests.el +++ b/test/lisp/gnus/gnus-util-tests.el @@ -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)) -- 2.39.5