mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 10:31:37 -08:00
Code Issues Projects Releases Wiki Activity

; Silence byte-compiler warnings in tests

Browse source 
* test/lisp/emacs-lisp/easy-mmode-tests.el (easy-mmode--minor-mode):
* test/lisp/progmodes/cperl-mode-tests.el (cperl-bug30393):
Silence byte-compiler.
This commit is contained in:
Stefan Kangas 2020-11-05 18:23:56 +01:00
parent 334e2ab440
commit 38a109e58c
2 changed files with 14 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

25
test/lisp/emacs-lisp/easy-mmode-tests.el
View file

@ -44,20 +44,21 @@
'(c-mode (not message-mode mail-mode) text-mode))
t))))
(define-minor-mode easy-mmode-test-mode "A test.")
(ert-deftest easy-mmode--minor-mode ()
(with-temp-buffer
(define-minor-mode test-mode "A test.")
(should (eq test-mode nil))
(test-mode nil)
(should (eq test-mode t))
(test-mode -33)
(should (eq test-mode nil))
(test-mode 33)
(should (eq test-mode t))
(test-mode 'toggle)
(should (eq test-mode nil))
(test-mode 'toggle)
(should (eq test-mode t))))
(should (eq easy-mmode-test-mode nil))
(easy-mmode-test-mode nil)
(should (eq easy-mmode-test-mode t))
(easy-mmode-test-mode -33)
(should (eq easy-mmode-test-mode nil))
(easy-mmode-test-mode 33)
(should (eq easy-mmode-test-mode t))
(easy-mmode-test-mode 'toggle)
(should (eq easy-mmode-test-mode nil))
(easy-mmode-test-mode 'toggle)
(should (eq easy-mmode-test-mode t))))
(provide 'easy-mmode-tests)