mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-10 00:00:39 -08:00
Code Issues Projects Releases Wiki Activity

Silence warnings about testing obsolete functions and macros

Browse source 
* test/lisp/emacs-lisp/cl-generic-tests.el:
* test/lisp/emacs-lisp/edebug-tests.el:
* test/lisp/emacs-lisp/eieio-tests/eieio-test-methodinvoke.el:
* test/lisp/emacs-lisp/eieio-tests/eieio-tests.el: Silence
byte-compiler warnings about testing obsolete functions and macros.
This commit is contained in:
Stefan Kangas 2021-12-05 12:49:52 +01:00
parent 9167fbd323
commit 722a8ebb71
4 changed files with 345 additions and 277 deletions
Download patch file Download diff file Expand all files Collapse all files

9
test/lisp/emacs-lisp/cl-generic-tests.el
View file

@ -200,9 +200,14 @@
(fmakunbound 'cl--generic-1)
(cl-defgeneric cl--generic-1 (x y))
(cl-defmethod cl--generic-1 ((x t) y)
(list x y (cl-next-method-p)))
(list x y
(with-suppressed-warnings ((obsolete cl-next-method-p))
(cl-next-method-p))))
(cl-defmethod cl--generic-1 ((_x (eql 4)) _y)
(cl-list* "quatre" (cl-next-method-p) (cl-call-next-method)))
(cl-list* "quatre"
(with-suppressed-warnings ((obsolete cl-next-method-p))
(cl-next-method-p))
(cl-call-next-method)))
(should (equal (cl--generic-1 4 5) '("quatre" t 4 5 nil))))
(ert-deftest cl-generic-test-12-context ()