diff options
| author | Basil L. Contovounesios | 2020-06-02 23:14:23 +0100 |
|---|---|---|
| committer | Basil L. Contovounesios | 2020-06-03 01:22:41 +0100 |
| commit | 7d323f07c0b540547c4aab38069972a918eff9d3 (patch) | |
| tree | e2b2d6c7051e6f57e230a65e97993d75731cd517 /test/src | |
| parent | cf473e742fdd0cce75f8e43a62307612b929461d (diff) | |
| download | emacs-7d323f07c0b540547c4aab38069972a918eff9d3.tar.gz emacs-7d323f07c0b540547c4aab38069972a918eff9d3.zip | |
Silence some byte-compiler warnings in tests
* test/lisp/emacs-lisp/cl-generic-tests.el:
* test/lisp/progmodes/elisp-mode-tests.el: Declare functions
referred to within macroexpansions.
(xref-elisp-overloadable-no-default)
(xref-elisp-overloadable-co-located-default)
(xref-elisp-overloadable-separate-default): Prefix unused arguments
with underscore.
* test/lisp/international/ccl-tests.el:
* test/lisp/wdired-tests.el:
* test/lisp/emacs-lisp/package-tests.el: Declare functions used.
(package-test-update-archives, package-test-signed): Use
revert-buffer in place of its obsolete alias package-menu-refresh.
* test/lisp/eshell/eshell-tests.el:
* test/lisp/mail/footnote-tests.el:
* test/src/buffer-tests.el: Require dependencies used.
* test/lisp/image/exif-tests.el: Remove unneeded (require 'seq).
(test-exit-direct-ascii-value): Actually perform the test.
* test/lisp/progmodes/sql-tests.el (sql-test-add-existing-product):
Fix typo.
* test/lisp/simple-tests.el (with-shell-command-dont-erase-buffer):
* test/src/data-tests.el (test-bool-vector-bv-from-hex-string)
(test-bool-vector-apply-mock-op): Remove unused local variables.
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/buffer-tests.el | 1 | ||||
| -rw-r--r-- | test/src/data-tests.el | 6 |
2 files changed, 4 insertions, 3 deletions
diff --git a/test/src/buffer-tests.el b/test/src/buffer-tests.el index 1c356698f66..60d29dd3a12 100644 --- a/test/src/buffer-tests.el +++ b/test/src/buffer-tests.el | |||
| @@ -20,6 +20,7 @@ | |||
| 20 | ;;; Code: | 20 | ;;; Code: |
| 21 | 21 | ||
| 22 | (require 'ert) | 22 | (require 'ert) |
| 23 | (require 'seq) | ||
| 23 | (eval-when-compile (require 'cl-lib)) | 24 | (eval-when-compile (require 'cl-lib)) |
| 24 | 25 | ||
| 25 | (ert-deftest overlay-modification-hooks-message-other-buf () | 26 | (ert-deftest overlay-modification-hooks-message-other-buf () |
diff --git a/test/src/data-tests.el b/test/src/data-tests.el index 3cebb3dfa57..ed092039078 100644 --- a/test/src/data-tests.el +++ b/test/src/data-tests.el | |||
| @@ -174,7 +174,7 @@ most-positive-fixnum, which is just less than a power of 2.") | |||
| 174 | sum 1)) | 174 | sum 1)) |
| 175 | 175 | ||
| 176 | (defun test-bool-vector-bv-from-hex-string (desc) | 176 | (defun test-bool-vector-bv-from-hex-string (desc) |
| 177 | (let (bv nchars nibbles) | 177 | (let (bv nibbles) |
| 178 | (dolist (c (string-to-list desc)) | 178 | (dolist (c (string-to-list desc)) |
| 179 | (push (string-to-number | 179 | (push (string-to-number |
| 180 | (char-to-string c) | 180 | (char-to-string c) |
| @@ -244,9 +244,9 @@ comparing the subr with a much slower lisp implementation." | |||
| 244 | 244 | ||
| 245 | (defun test-bool-vector-apply-mock-op (mock a b c) | 245 | (defun test-bool-vector-apply-mock-op (mock a b c) |
| 246 | "Compute (slowly) the correct result of a bool-vector set operation." | 246 | "Compute (slowly) the correct result of a bool-vector set operation." |
| 247 | (let (changed nv) | 247 | (let (changed) |
| 248 | (cl-assert (eql (length b) (length c))) | 248 | (cl-assert (eql (length b) (length c))) |
| 249 | (if a (setf nv a) | 249 | (unless a |
| 250 | (setf a (make-bool-vector (length b) nil)) | 250 | (setf a (make-bool-vector (length b) nil)) |
| 251 | (setf changed t)) | 251 | (setf changed t)) |
| 252 | 252 | ||