procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add tests for Bug#62207

Browse source 
* test/src/keymap-tests.el (keymap-unset-test-remove-and-inheritance):
New test.
This commit is contained in:
Robert Pluim 2023-03-18 10:33:39 +01:00
parent faee8d5073
commit aedb9e3ec3
1 changed files with 18 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
test/src/keymap-tests.el
View file

@ -475,6 +475,24 @@ g .. h foo
"a" #'next-line
"a" #'previous-line)))
(ert-deftest keymap-unset-test-remove-and-inheritance ()
"Check various behaviors of keymap-unset. (Bug#62207)"
(let ((map (make-sparse-keymap))
(parent (make-sparse-keymap)))
(set-keymap-parent map parent)
;; Removing an unset key should not add a key.
(keymap-set parent "u" #'undo)
(keymap-unset map "u" t)
(should (equal (keymap-lookup map "u") #'undo))
;; Non-removed child bindings should shadow parent
(keymap-set map "u" #'identity)
(keymap-unset map "u")
;; From the child, but nil.
(should-not (keymap-lookup map "u"))
(keymap-unset map "u" t)
;; From the parent this time/
(should (equal (keymap-lookup map "u") #'undo))))
(provide 'keymap-tests)
;;; keymap-tests.el ends here