]> git.eshelyaron.com Git - emacs.git/commitdiff
Assert not local-variable-p after setq in let_default binding
authorSpencer Baugh <sbaugh@catern.com>
Wed, 24 Mar 2021 03:11:52 +0000 (23:11 -0400)
committerStefan Monnier <monnier@iro.umontreal.ca>
Thu, 25 Mar 2021 16:39:26 +0000 (12:39 -0400)
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

index d0cb87293f0f6d346d6c6b52c217e4767d4e3d18..b1e5fa0767c9faf5c4b0ce96fede7d3ee5ec4797 100644 (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))