From b6339fc19c378d66ce1bc53499552dfaa3c0c8c0 Mon Sep 17 00:00:00 2001
From: Stefan Kangas <stefan@marxist.se>
Date: Sun, 22 Nov 2020 03:24:26 +0100
Subject: Test interactive-only spec of with-suppressed-warnings

* test/lisp/emacs-lisp/bytecomp-tests.el
(bytecomp-test--with-suppressed-warnings): Test suppressing warning
with interactive-only.
---
 test/lisp/emacs-lisp/bytecomp-tests.el | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'test/lisp/emacs-lisp/bytecomp-tests.el')

diff --git a/test/lisp/emacs-lisp/bytecomp-tests.el b/test/lisp/emacs-lisp/bytecomp-tests.el
index 13cbedfe1f7..e0a3cc2fb82 100644
--- a/test/lisp/emacs-lisp/bytecomp-tests.el
+++ b/test/lisp/emacs-lisp/bytecomp-tests.el
@@ -808,6 +808,12 @@ literals (Bug#20852)."
    '((obsolete obsolete-variable))
    "obsolete")
 
+  (test-suppression
+   '(defun zot ()
+      (next-line))
+   '((interactive-only next-line))
+   "interactive use only")
+
   (test-suppression
    '(defun zot ()
       (mapcar #'list '(1 2 3))
-- 
cgit v1.2.3