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

* test/lisp/emacs-lisp/cl-macs-tests.el: Avoid with-suppressed-warnings

Browse source 
* test/lisp/emacs-lisp/cl-macs-tests.el (cl-macs--progv): Use a proper
namespace prefix for the global vars.
This commit is contained in:
Stefan Monnier 2021-12-08 16:22:24 -05:00
parent aa3434369e
commit 3a0e0187b7
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
test/lisp/emacs-lisp/cl-macs-tests.el
View file

@ -668,13 +668,13 @@ collection clause."
#'len))
(`(function (lambda (,_ ,_) . ,_)) t))))
(with-suppressed-warnings ((lexical test) (lexical test1) (lexical test2))
(defvar test)
(defvar test1)
(defvar test2))
(ert-deftest cl-macs--progv ()
(should (= (cl-progv '(test test) '(1 2) test) 2))
(should (equal (cl-progv '(test1 test2) '(1 2) (list test1 test2))
(defvar cl-macs--test)
(defvar cl-macs--test1)
(defvar cl-macs--test2)
(should (= (cl-progv '(cl-macs--test cl-macs--test) '(1 2) cl-macs--test) 2))
(should (equal (cl-progv '(cl-macs--test1 cl-macs--test2) '(1 2)
(list cl-macs--test1 cl-macs--test2))
'(1 2))))
;;; cl-macs-tests.el ends here