[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master c24766c 2/2: Assert not local-variable-p after setq in let_defaul
From: |
Stefan Monnier |
Subject: |
master c24766c 2/2: Assert not local-variable-p after setq in let_default binding |
Date: |
Thu, 25 Mar 2021 13:37:29 -0400 (EDT) |
branch: master
commit c24766c4d59bc7d9f583f299b1558e2356fba933
Author: Spencer Baugh <sbaugh@catern.com>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
Assert not local-variable-p after setq in let_default binding
Breaking this is a likely way to break this test, so this saves a bit
of time in debugging.
* test/src/data-tests.el (data-tests--let-buffer-local):
Add assertion to test.
---
test/src/data-tests.el | 1 +
1 file changed, 1 insertion(+)
diff --git a/test/src/data-tests.el b/test/src/data-tests.el
index d0cb8729..b1e5fa0 100644
--- a/test/src/data-tests.el
+++ b/test/src/data-tests.el
@@ -358,6 +358,7 @@ comparing the subr with a much slower lisp implementation."
(should (equal (symbol-value var) 42))
(should (equal (default-value var) (symbol-value var)))
(set var 123)
+ (should (not (local-variable-p var)))
(should (equal (symbol-value var) 123))
(should (equal (default-value var) (symbol-value var)))) ;bug#44733
(should (equal (symbol-value var) def))