diff options
author | Stefan Kangas <stefan@marxist.se> | 2021-12-19 14:45:55 +0100 |
---|---|---|
committer | Stefan Kangas <stefan@marxist.se> | 2021-12-19 14:45:55 +0100 |
commit | 9ef9d0c697c663a5e0b2d183a9447213fc1742f4 (patch) | |
tree | 3da86e3c71d323e1aaa32e7319f2ea4206a4e067 | |
parent | d9d38059d193699c2ae6cdf69341f5aa62e87781 (diff) | |
download | emacs-9ef9d0c697c663a5e0b2d183a9447213fc1742f4.tar.gz |
Silence "Unknown slot" warnings in tests
* test/lisp/emacs-lisp/eieio-tests/eieio-tests.el:
* test/lisp/net/ntlm-tests.el: Silence byte-compiler.
-rw-r--r-- | test/lisp/emacs-lisp/eieio-tests/eieio-tests.el | 5 | ||||
-rw-r--r-- | test/lisp/net/ntlm-tests.el | 2 |
2 files changed, 7 insertions, 0 deletions
diff --git a/test/lisp/emacs-lisp/eieio-tests/eieio-tests.el b/test/lisp/emacs-lisp/eieio-tests/eieio-tests.el index 599d7900c30..1595d1a0840 100644 --- a/test/lisp/emacs-lisp/eieio-tests/eieio-tests.el +++ b/test/lisp/emacs-lisp/eieio-tests/eieio-tests.el @@ -31,6 +31,11 @@ (eval-when-compile (require 'cl-lib)) +;; Silence byte-compiler. +(eval-when-compile + (dolist (slot '(:a :b ooga-booga :derived-value missing-slot)) + (cl-pushnew slot eieio--known-slot-names))) + ;;; Code: ;; Set up some test classes (defclass class-a () diff --git a/test/lisp/net/ntlm-tests.el b/test/lisp/net/ntlm-tests.el index 2420b3b48a9..7b89e6b0784 100644 --- a/test/lisp/net/ntlm-tests.el +++ b/test/lisp/net/ntlm-tests.el @@ -227,6 +227,8 @@ This string will be returned from the NTLM server to the NTLM client." ;; Silence some byte-compiler warnings that occur when ;; web-server/web-server.el is not found. +(eval-when-compile (cl-pushnew 'headers eieio--known-slot-names) + (cl-pushnew 'process eieio--known-slot-names)) (declare-function ws-send nil) (declare-function ws-parse-request nil) (declare-function ws-start nil) |