From: Spencer Baugh <sbaugh@catern.com>
Date: Wed, 24 Mar 2021 03:11:52 +0000 (-0400)
Subject: Assert not local-variable-p after setq in let_default binding
X-Git-Tag: emacs-28.0.90~3136
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c24766c4d59bc7d9f583f299b1558e2356fba933;p=emacs.git

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.
---

diff --git a/test/src/data-tests.el b/test/src/data-tests.el
index d0cb87293f0..b1e5fa0767c 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))