summaryrefslogtreecommitdiff
path: root/test/lisp/emacs-lisp/cl-macs-tests.el
diff options
context:
space:
mode:
authorYuuki Harano <masm+github@masm11.me>2021-12-06 00:37:01 +0900
committerYuuki Harano <masm+github@masm11.me>2021-12-06 00:37:01 +0900
commite5f74cecf132eb266abbaf7483bd793f45cc370f (patch)
tree5c58e97632e36aa3bf6e7133c4bcc1e57e33afce /test/lisp/emacs-lisp/cl-macs-tests.el
parent6d7a1123b44ecc4b0f5f356df1eaea0b74e1e855 (diff)
parent622550f7187f5ec9261a0d30b5ee6f440069a1e0 (diff)
downloademacs-e5f74cecf132eb266abbaf7483bd793f45cc370f.tar.gz
emacs-e5f74cecf132eb266abbaf7483bd793f45cc370f.tar.bz2
emacs-e5f74cecf132eb266abbaf7483bd793f45cc370f.zip
Merge branch 'master' of git.sv.gnu.org:/srv/git/emacs into feature/pgtk
Diffstat (limited to 'test/lisp/emacs-lisp/cl-macs-tests.el')
-rw-r--r--test/lisp/emacs-lisp/cl-macs-tests.el4
1 files changed, 4 insertions, 0 deletions
diff --git a/test/lisp/emacs-lisp/cl-macs-tests.el b/test/lisp/emacs-lisp/cl-macs-tests.el
index be2c0fa02b4..7c3afefaadd 100644
--- a/test/lisp/emacs-lisp/cl-macs-tests.el
+++ b/test/lisp/emacs-lisp/cl-macs-tests.el
@@ -668,6 +668,10 @@ 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))