summaryrefslogtreecommitdiff
path: root/test/lisp/emacs-lisp/bytecomp-tests.el
diff options
context:
space:
mode:
authorStefan Kangas <stefan@marxist.se>2020-11-22 03:24:26 +0100
committerStefan Kangas <stefan@marxist.se>2020-11-22 03:24:26 +0100
commitb6339fc19c378d66ce1bc53499552dfaa3c0c8c0 (patch)
treec80e7ee8b0163573f1c7cdf1c5a29a58e972dc9d /test/lisp/emacs-lisp/bytecomp-tests.el
parentfb9326b45c769f83b619278eae41f680577d1b05 (diff)
downloademacs-b6339fc19c378d66ce1bc53499552dfaa3c0c8c0.tar.gz
emacs-b6339fc19c378d66ce1bc53499552dfaa3c0c8c0.tar.bz2
emacs-b6339fc19c378d66ce1bc53499552dfaa3c0c8c0.zip
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.
Diffstat (limited to 'test/lisp/emacs-lisp/bytecomp-tests.el')
-rw-r--r--test/lisp/emacs-lisp/bytecomp-tests.el6
1 files changed, 6 insertions, 0 deletions
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
@@ -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))