; Silence byte-compiler warnings in tests

* test/lisp/emacs-lisp/easy-mmode-tests.el (easy-mmode--minor-mode):
* test/lisp/progmodes/cperl-mode-tests.el (cperl-bug30393):
Silence byte-compiler.

diff --git a/test/lisp/emacs-lisp/easy-mmode-tests.el b/test/lisp/emacs-lisp/easy-mmode-tests.el
index c05379e441515347cb509ab672e5b4d6039359f3..bbd01970b5b5c30f2a31aa5cffddee8739a512d3 100644 (file)
--- a/test/lisp/emacs-lisp/easy-mmode-tests.el
+++ b/test/lisp/emacs-lisp/easy-mmode-tests.el
@@ -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)
 

diff --git a/test/lisp/progmodes/cperl-mode-tests.el b/test/lisp/progmodes/cperl-mode-tests.el
index 2977f108131dc2904bd160683300fb028cb53f4a..effebc8068ca9a556eb45e89b2b8a19d0c4a5d1e 100644 (file)
--- a/test/lisp/progmodes/cperl-mode-tests.el
+++ b/test/lisp/progmodes/cperl-mode-tests.el
@@ -244,7 +244,7 @@ Perl is not Lisp: An open paren in column 0 does not start a function."
             (goto-char (point-min))
             (while (null (eobp))
               (cperl-indent-command)
-              (next-line))
+              (forward-line 1))
             (setq expected (concat "test case " name ":\n" expected))
             (setq got (concat "test case " name ":\n" (buffer-string)))
             (should (equal got expected))))))))