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:
Spencer Baugh 2021-03-23 23:11:52 -04:00 committed by Stefan Monnier
parent b29bf8181f
commit c24766c4d5

View file

@ -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))