Fix gnus-base64-repad test failures

diff --git a/test/lisp/gnus/gnus-util-tests.el b/test/lisp/gnus/gnus-util-tests.el
index ed33be46a3a3a3ddfa21800e8032ff042d662507..ec58032e84ebf2fc4198d1679a3ddf5968055ac1 100644 (file)
--- 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))