[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 3a0e018: * test/lisp/emacs-lisp/cl-macs-tests.el: Avoid `with-sup
From: |
Stefan Monnier |
Subject: |
master 3a0e018: * test/lisp/emacs-lisp/cl-macs-tests.el: Avoid `with-suppressed-warnings` |
Date: |
Wed, 8 Dec 2021 16:22:30 -0500 (EST) |
branch: master
commit 3a0e0187b711db69df48e16b35a577f046cf38b1
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
* test/lisp/emacs-lisp/cl-macs-tests.el: Avoid `with-suppressed-warnings`
* test/lisp/emacs-lisp/cl-macs-tests.el (cl-macs--progv): Use a proper
namespace prefix for the global vars.
---
test/lisp/emacs-lisp/cl-macs-tests.el | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/test/lisp/emacs-lisp/cl-macs-tests.el
b/test/lisp/emacs-lisp/cl-macs-tests.el
index 7c3afef..13da60e 100644
--- a/test/lisp/emacs-lisp/cl-macs-tests.el
+++ b/test/lisp/emacs-lisp/cl-macs-tests.el
@@ -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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 3a0e018: * test/lisp/emacs-lisp/cl-macs-tests.el: Avoid `with-suppressed-warnings`,
Stefan Monnier <=