diff options
| author | Spencer Baugh <sbaugh@catern.com> | 2021-03-23 23:11:52 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-03-25 12:39:26 -0400 |
| commit | c24766c4d59bc7d9f583f299b1558e2356fba933 (patch) | |
| tree | 28072866f25a127e98fc124396f6e78b2a98cbaf /test/src/data-tests.el | |
| parent | b29bf8181fe2c02becd0a3ac5e2f85cb0a3b58bf (diff) | |
| download | emacs-c24766c4d59bc7d9f583f299b1558e2356fba933.tar.gz | |
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.
Diffstat (limited to 'test/src/data-tests.el')
| -rw-r--r-- | test/src/data-tests.el | 1 |
1 files changed, 1 insertions, 0 deletions
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)) |