From 9ef9d0c697c663a5e0b2d183a9447213fc1742f4 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Sun, 19 Dec 2021 14:45:55 +0100 Subject: Silence "Unknown slot" warnings in tests * test/lisp/emacs-lisp/eieio-tests/eieio-tests.el: * test/lisp/net/ntlm-tests.el: Silence byte-compiler. --- test/lisp/emacs-lisp/eieio-tests/eieio-tests.el | 5 +++++ test/lisp/net/ntlm-tests.el | 2 ++ 2 files changed, 7 insertions(+) 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) -- cgit v1.2.3