Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Add tests for per-buffer variables with predicates

Browse source 
* test/src/data-tests.el (data-tests-per-buffer-var-predicates): New.
This commit is contained in:
Helmut Eller 2026-02-12 18:40:44 +01:00
parent 40f696757c
commit 737ad9080b
1 changed files with 34 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
test/src/data-tests.el
View file

@ -951,4 +951,38 @@ comparing the subr with a much slower Lisp implementation."
(should-error (aset s 3 #x3fff80))) ; new char not ASCII
)
(ert-deftest data-tests-per-buffer-var-predicates ()
(with-temp-buffer
;; per buffer variable without predicate
(progn
(setq line-spacing 2.3)
(should (= line-spacing 2.3))
(setq line-spacing "2.3")
(should (equal line-spacing "2.3"))
(setq line-spacing nil)
(should (equal line-spacing nil)))
;; per buffer variable with 'fraction predicate
(progn
(dolist (v '(nil 0.7))
(setq scroll-up-aggressively v)
(should (equal scroll-up-aggressively v)))
(should-error (setq scroll-up-aggressively 'abc)
:type 'wrong-type-argument)
(should-error (setq scroll-up-aggressively 2.7))
(should (equal scroll-up-aggressively 0.7)))
;; per buffer variable with 'vertical-scroll-bar predicate
(progn
(dolist (v (get 'vertical-scroll-bar 'choice))
(setq vertical-scroll-bar v)
(should (equal vertical-scroll-bar v)))
(should-error (setq vertical-scroll-bar 'foo))
(should (equal vertical-scroll-bar 'right)))
;; per buffer variable with 'overwrite-mode predicate
(progn
(dolist (v (get 'overwrite-mode 'choice))
(setq overwrite-mode v)
(should (equal overwrite-mode v)))
(should-error (setq overwrite-mode 'foo))
(should (equal overwrite-mode 'overwrite-mode-binary)))))
;;; data-tests.el ends here