diff options
| author | Yuuki Harano <masm+github@masm11.me> | 2021-12-06 00:37:01 +0900 |
|---|---|---|
| committer | Yuuki Harano <masm+github@masm11.me> | 2021-12-06 00:37:01 +0900 |
| commit | e5f74cecf132eb266abbaf7483bd793f45cc370f (patch) | |
| tree | 5c58e97632e36aa3bf6e7133c4bcc1e57e33afce /test/lisp/emacs-lisp/cl-generic-tests.el | |
| parent | 6d7a1123b44ecc4b0f5f356df1eaea0b74e1e855 (diff) | |
| parent | 622550f7187f5ec9261a0d30b5ee6f440069a1e0 (diff) | |
| download | emacs-e5f74cecf132eb266abbaf7483bd793f45cc370f.tar.gz emacs-e5f74cecf132eb266abbaf7483bd793f45cc370f.tar.bz2 emacs-e5f74cecf132eb266abbaf7483bd793f45cc370f.zip | |
Merge branch 'master' of git.sv.gnu.org:/srv/git/emacs into feature/pgtk
Diffstat (limited to 'test/lisp/emacs-lisp/cl-generic-tests.el')
| -rw-r--r-- | test/lisp/emacs-lisp/cl-generic-tests.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/test/lisp/emacs-lisp/cl-generic-tests.el b/test/lisp/emacs-lisp/cl-generic-tests.el index dd7511e9afe..9c285a9facf 100644 --- a/test/lisp/emacs-lisp/cl-generic-tests.el +++ b/test/lisp/emacs-lisp/cl-generic-tests.el @@ -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 () |