]> git.eshelyaron.com Git - emacs.git/commitdiff
Fix compilation warnings in newer subr tests
authorLars Ingebrigtsen <larsi@gnus.org>
Sat, 7 May 2022 11:45:35 +0000 (13:45 +0200)
committerLars Ingebrigtsen <larsi@gnus.org>
Sat, 7 May 2022 11:45:35 +0000 (13:45 +0200)
* test/lisp/subr-tests.el (test-local-set-state): Fix compilation
warnings.

test/lisp/subr-tests.el

index 8f3ee66e00d53843e52d8100d00659dbe83cfd5b..89803e5ce2e6215b6945e65b418aaab6b0d3a198 100644 (file)
@@ -1058,20 +1058,21 @@ final or penultimate step during initialization."))
   (should (equal (kbd "C-x ( C-d C-x )") "\ 4"))
   (should (equal (kbd "C-x ( C-x )") "")))
 
+(defvar subr-test--global)
 (ert-deftest test-local-set-state ()
-  (setq global 1)
+  (setq subr-test--global 1)
   (with-temp-buffer
-    (setq-local local 2)
-    (let ((state (buffer-local-set-state global 10
-                                         local 20
-                                         unexist 30)))
-      (should (= global 10))
-      (should (= local 20))
-      (should (= unexist 30))
+    (setq-local subr-test--local 2)
+    (let ((state (buffer-local-set-state subr-test--global 10
+                                         subr-test--local 20
+                                         subr-test--unexist 30)))
+      (should (= subr-test--global 10))
+      (should (= subr-test--local 20))
+      (should (= subr-test--unexist 30))
       (buffer-local-restore-state state)
-      (should (= global 1))
-      (should (= local 2))
-      (should-not (boundp 'unexist)))))
+      (should (= subr-test--global 1))
+      (should (= subr-test--local 2))
+      (should-not (boundp 'subr-test--unexist)))))
 
 (provide 'subr-tests)
 ;;; subr-tests.el ends here