master b6339fc: Test interactive-only spec of with-suppressed-warnings

[Stefan Kangas]

branch: master
commit b6339fc19c378d66ce1bc53499552dfaa3c0c8c0
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

    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(+)

diff --git a/test/lisp/emacs-lisp/bytecomp-tests.el 
b/test/lisp/emacs-lisp/bytecomp-tests.el
index 13cbedf..e0a3cc2 100644
--- a/test/lisp/emacs-lisp/bytecomp-tests.el
+++ b/test/lisp/emacs-lisp/bytecomp-tests.el
@@ -810,6 +810,12 @@ literals (Bug#20852)."
 
   (test-suppression
    '(defun zot ()
+      (next-line))
+   '((interactive-only next-line))
+   "interactive use only")
+
+  (test-suppression
+   '(defun zot ()
       (mapcar #'list '(1 2 3))
       nil)
    '((mapcar mapcar))