procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

test/*.el: Avoid byte-compiler warnings

Browse source 
* test/lisp/abbrev-tests.el (abbrev-table-p-test): Remove unused 'let*'.

* test/lisp/faces-tests.el (faces--test): New customization group.
(faces--test1, faces--test2): Use it.

* test/lisp/ffap-tests.el (ffap-tests-25243):
Call 'mark-whole-buffer' interactively.

* test/lisp/ibuffer-tests.el (ibuffer-filter-groups, ibuffer-filtering-alist)
(ibuffer-filtering-qualifiers, ibuffer-save-with-custom)
(ibuffer-saved-filter-groups, ibuffer-saved-filters): Defvar.
(ibuffer-format-qualifier, ibuffer-unary-operand): Declare.

* test/lisp/minibuffer-tests.el (completion-test1):
Mark unused lexical arguments.

* test/lisp/simple-tests.el (simple-test--dummy-buffer): Wrap result in
'with-no-warnings' to avoid them when the macro is invoked for effect.

* test/lisp/emacs-lisp/cl-seq-tests.el (cl-seq-count-test):
Mark unused lexical arguments.

* test/lisp/emacs-lisp/let-alist-tests.el (let-alist-surface-test):
Mark unused lexical arguments.
(let-alist-cons): Remove unused let binding.

* test/lisp/net/dbus-tests.el (dbus-debug): Defvar.
(dbus-get-unique-name): Declare.

* test/lisp/progmodes/python-tests.el (python-bob-infloop-avoid):
Call 'font-lock-fontify-buffer' interactively.

* test/lisp/textmodes/tildify-tests.el (tildify-space-undo-test--test):
Mark unused lexical argument.
This commit is contained in:
Juanma Barranquero 2017-01-28 04:40:36 +01:00
parent 3979d8f457
commit 375c70fd9e
11 changed files with 31 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

6
test/lisp/emacs-lisp/cl-seq-tests.el
View file

@ -250,9 +250,9 @@ Body are forms defining the test."
(should (= 0 (cl-count -5 list)))
(should (= 0 (cl-count 2 list :start 2 :end 4)))
(should (= 4 (cl-count 'foo list :key (lambda (x) (and (cl-evenp x) 'foo)))))
(should (= 4 (cl-count 'foo list :test (lambda (a b) (cl-evenp b)))))
(should (equal (cl-count 'foo list :test (lambda (a b) (cl-oddp b)))
(cl-count 'foo list :test-not (lambda (a b) (cl-evenp b)))))))
(should (= 4 (cl-count 'foo list :test (lambda (_a b) (cl-evenp b)))))
(should (equal (cl-count 'foo list :test (lambda (_a b) (cl-oddp b)))
(cl-count 'foo list :test-not (lambda (_a b) (cl-evenp b)))))))
;; keywords supported: :test :test-not :key :start1 :end1 :start2 :end2 :from-end
(ert-deftest cl-seq-mismatch-test ()

5
test/lisp/emacs-lisp/let-alist-tests.el
View file

@ -31,7 +31,7 @@
(.test-two (cdr (assq 'test-two symbol))))
(list .test-one .test-two
.test-two .test-two)))
(cl-letf (((symbol-function #'make-symbol) (lambda (x) 'symbol)))
(cl-letf (((symbol-function #'make-symbol) (lambda (_x) 'symbol)))
(macroexpand
'(let-alist data (list .test-one .test-two
.test-two .test-two))))))
@ -51,8 +51,7 @@
(ert-deftest let-alist-cons ()
(should
(equal
(let ((.external "ext")
(.external.too "et"))
(let ((.external "ext"))
(let-alist '((test-two . 0)
(test-three . 1)
(sublist . ((foo . 2)