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.
This commit is contained in:
parent
b29bf8181f
commit
c24766c4d5
1 changed files with 1 additions and 0 deletions
|
@ -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))
|
||||
|
|
Loading…
Add table
Reference in a new issue