diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2023-01-18 08:30:30 +0100 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2023-01-18 08:37:36 +0100 |
| commit | 53c2dd04ec0034649466bdff3da3f0c6c2a3f26e (patch) | |
| tree | 622c086893cb57de2ac05a7bcf8ad124cd7d7f0e /compat-tests.el | |
| parent | db9f58620d83b990717f96bc3fa13e7b5698b59e (diff) | |
compat-29: Add buffer-local-set-state and buffer-local-restore-state
Diffstat (limited to 'compat-tests.el')
| -rw-r--r-- | compat-tests.el | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/compat-tests.el b/compat-tests.el index 9b787db..9c8f4dd 100644 --- a/compat-tests.el +++ b/compat-tests.el @@ -908,6 +908,24 @@ (should-equal compat-tests--local-b 2) (should-equal compat-tests--local-c 3)) +(defvar compat-tests--global) +(defvar compat-tests--local) +(defvar compat-tests--unexist) +(ert-deftest buffer-local-set-state () + (setq compat-tests--global 1) + (with-temp-buffer + (setq-local compat-tests--local 2) + (let ((state (buffer-local-set-state compat-tests--global 10 + compat-tests--local 20 + compat-tests--unexist 30))) + (should (= compat-tests--global 10)) + (should (= compat-tests--local 20)) + (should (= compat-tests--unexist 30)) + (buffer-local-restore-state state) + (should (= compat-tests--global 1)) + (should (= compat-tests--local 2)) + (should-not (boundp 'compat-tests--unexist))))) + (ert-deftest gensym () (let ((orig gensym-counter)) (should (integerp gensym-counter)) |