[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/which-key c011b26 5/9: Add tests for keymap-based-bindi
From: |
Stefan Monnier |
Subject: |
[elpa] externals/which-key c011b26 5/9: Add tests for keymap-based-bindings |
Date: |
Mon, 15 Mar 2021 22:29:20 -0400 (EDT) |
branch: externals/which-key
commit c011b268196b8356c70f668506a1133086bc9477
Author: Justin Burkett <justin@burkett.cc>
Commit: Justin Burkett <justin@burkett.cc>
Add tests for keymap-based-bindings
---
which-key-tests.el | 19 ++++++++++++++++++-
1 file changed, 18 insertions(+), 1 deletion(-)
diff --git a/which-key-tests.el b/which-key-tests.el
index f9fac65..1611d51 100644
--- a/which-key-tests.el
+++ b/which-key-tests.el
@@ -27,7 +27,24 @@
(require 'which-key)
(require 'ert)
-(ert-deftest which-key-test-prefix-declaration ()
+(ert-deftest which-key-test--keymap-based-bindings ()
+ (let ((map (make-sparse-keymap))
+ (emacs-lisp-mode-map (copy-keymap emacs-lisp-mode-map)))
+ (emacs-lisp-mode)
+ (define-key map "x" 'ignore)
+ (define-key emacs-lisp-mode-map "\C-c\C-a" 'complete)
+ (define-key emacs-lisp-mode-map "\C-c\C-b" map)
+ (which-key-add-keymap-based-replacements emacs-lisp-mode-map
+ "C-c C-a" '("mycomplete" . complete)
+ "C-c C-b" "mymap")
+ (should (equal
+ (which-key--maybe-replace '("C-c C-a" . "complete"))
+ '("C-c C-a" . "mycomplete")))
+ (should (equal
+ (which-key--maybe-replace '("C-c C-b" . ""))
+ '("C-c C-b" . "mymap")))))
+
+(ert-deftest which-key-test--prefix-declaration ()
"Test `which-key-declare-prefixes' and
`which-key-declare-prefixes-for-mode'. See Bug #109."
(let* ((major-mode 'test-mode)
- [elpa] externals/which-key updated (d794c4a -> c0608e8), Stefan Monnier, 2021/03/15
- [elpa] externals/which-key ae59b7e 3/9: Version 3.5.0, Stefan Monnier, 2021/03/15
- [elpa] externals/which-key 427c3f4 4/9: Clarify README's description of keymap-based replacement, Stefan Monnier, 2021/03/15
- [elpa] externals/which-key a70fc16 1/9: Hide paging hint when prefix is help-char, Stefan Monnier, 2021/03/15
- [elpa] externals/which-key ca268fd 6/9: REAMDE code's Number of parentheses pairs (#270), Stefan Monnier, 2021/03/15
- [elpa] externals/which-key c0608e8 9/9: Version 3.5.1, Stefan Monnier, 2021/03/15
- [elpa] externals/which-key 5b37abc 2/9: Fix which-key--next-page-hint, Stefan Monnier, 2021/03/15
- [elpa] externals/which-key c011b26 5/9: Add tests for keymap-based-bindings,
Stefan Monnier <=
- [elpa] externals/which-key 3908719 7/9: simplify pseudo key, Stefan Monnier, 2021/03/15
- [elpa] externals/which-key 428aedf 8/9: Further simplify which-key--pseudo-key, Stefan Monnier, 2021/03/15