aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
authorStefan Kangas2021-12-06 22:05:57 +0100
committerStefan Kangas2021-12-06 22:19:58 +0100
commitbed5af1ea323a3b20ef505a05ccc69afaa9b645d (patch)
tree2340edf7df2460b1d34f423fee112d996cb12c17 /test
parente637afce45e9a982e284d344a35b523d74d88010 (diff)
downloademacs-bed5af1ea323a3b20ef505a05ccc69afaa9b645d.tar.gz
emacs-bed5af1ea323a3b20ef505a05ccc69afaa9b645d.zip
Silence byte-compiler in two tests
* test/lisp/emacs-lisp/eieio-tests/eieio-test-methodinvoke.el: * test/lisp/mail/mail-utils-tests.el (mail-utils-tests-mail-rfc822-time-zone): Silence byte-compiler.
Diffstat (limited to 'test')
-rw-r--r--test/lisp/emacs-lisp/eieio-tests/eieio-test-methodinvoke.el1
-rw-r--r--test/lisp/mail/mail-utils-tests.el3
2 files changed, 3 insertions, 1 deletions
diff --git a/test/lisp/emacs-lisp/eieio-tests/eieio-test-methodinvoke.el b/test/lisp/emacs-lisp/eieio-tests/eieio-test-methodinvoke.el
index ee52d831d69..e881e46a2d1 100644
--- a/test/lisp/emacs-lisp/eieio-tests/eieio-test-methodinvoke.el
+++ b/test/lisp/emacs-lisp/eieio-tests/eieio-test-methodinvoke.el
@@ -325,6 +325,7 @@
325 ()) 325 ())
326 326
327(with-suppressed-warnings ((obsolete defmethod) 327(with-suppressed-warnings ((obsolete defmethod)
328 (obsolete defgeneric)
328 (obsolete next-method-p) 329 (obsolete next-method-p)
329 (obsolete call-next-method)) 330 (obsolete call-next-method))
330 (defmethod initialize-instance :after ((_this eitest-Jb) &rest _slots) 331 (defmethod initialize-instance :after ((_this eitest-Jb) &rest _slots)
diff --git a/test/lisp/mail/mail-utils-tests.el b/test/lisp/mail/mail-utils-tests.el
index 5b54f2440c7..f75de5c620c 100644
--- a/test/lisp/mail/mail-utils-tests.el
+++ b/test/lisp/mail/mail-utils-tests.el
@@ -85,7 +85,8 @@
85 "foo@example.org\\|bar@example.org\\|baz@example.org"))) 85 "foo@example.org\\|bar@example.org\\|baz@example.org")))
86 86
87(ert-deftest mail-utils-tests-mail-rfc822-time-zone () 87(ert-deftest mail-utils-tests-mail-rfc822-time-zone ()
88 (should (stringp (mail-rfc822-time-zone (current-time))))) 88 (with-suppressed-warnings ((obsolete mail-rfc822-time-zone))
89 (should (stringp (mail-rfc822-time-zone (current-time))))))
89 90
90(ert-deftest mail-utils-test-mail-rfc822-date/contains-year () 91(ert-deftest mail-utils-test-mail-rfc822-date/contains-year ()
91 (should (string-match (rx " 20" digit digit " ") 92 (should (string-match (rx " 20" digit digit " ")