[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/which-key 8d6d81d 09/32: Expand get-keymap-bindings tes
From: |
ELPA Syncer |
Subject: |
[elpa] externals/which-key 8d6d81d 09/32: Expand get-keymap-bindings test |
Date: |
Wed, 30 Jun 2021 18:57:27 -0400 (EDT) |
branch: externals/which-key
commit 8d6d81da4c7be4c929e908b1737dfd6d4c2aaa63
Author: Justin Burkett <justin@burkett.cc>
Commit: Justin Burkett <justin@burkett.cc>
Expand get-keymap-bindings test
---
Cask | 1 +
which-key-tests.el | 21 +++++++++++++++++++--
2 files changed, 20 insertions(+), 2 deletions(-)
diff --git a/Cask b/Cask
index 60fa07c..6ff7bbe 100644
--- a/Cask
+++ b/Cask
@@ -4,4 +4,5 @@
(package-file "which-key.el")
(development
+ (depends-on "evil")
(depends-on "ert"))
diff --git a/which-key-tests.el b/which-key-tests.el
index 17d5d0d..eeedb55 100644
--- a/which-key-tests.el
+++ b/which-key-tests.el
@@ -141,24 +141,41 @@
(ert-deftest which-key-test--get-keymap-bindings ()
(let ((map (make-sparse-keymap))
+ (evil-local-mode t)
+ (evil-state 'normal)
which-key-replacement-alist)
+ (require 'evil)
(define-key map [which-key-a] '(which-key "blah"))
(define-key map "b" 'ignore)
(define-key map "c" "c")
(define-key map "dd" "dd")
(define-key map "eee" "eee")
(define-key map "f" [123 45 6])
+ (define-key map (kbd "M-g g") "M-gg")
+ (evil-define-key* 'normal map (kbd "C-h") "C-h-normal")
+ (evil-define-key* 'insert map (kbd "C-h") "C-h-insert")
(should (equal
(sort (which-key--get-keymap-bindings map)
(lambda (a b) (string-lessp (car a) (car b))))
- '(("c" . "c")
+ '(("M-g" . "prefix")
+ ("c" . "c")
+ ("d" . "prefix")
+ ("e" . "prefix")
+ ("f" . "{ - C-f"))))
+ (should (equal
+ (sort (which-key--get-keymap-bindings map nil nil nil nil t)
+ (lambda (a b) (string-lessp (car a) (car b))))
+ '(("C-h" . "C-h-normal")
+ ("M-g" . "prefix")
+ ("c" . "c")
("d" . "prefix")
("e" . "prefix")
("f" . "{ - C-f"))))
(should (equal
(sort (which-key--get-keymap-bindings map nil nil nil t)
(lambda (a b) (string-lessp (car a) (car b))))
- '(("c" . "c")
+ '(("M-g g" . "M-gg")
+ ("c" . "c")
("d d" . "dd")
("e e e" . "eee")
("f" . "{ - C-f"))))))
- [elpa] externals/which-key updated (fc29864 -> 27d9fec), ELPA Syncer, 2021/06/30
- [elpa] externals/which-key 0f6bda6 02/32: Improve first doc-string line in trivial cases, ELPA Syncer, 2021/06/30
- [elpa] externals/which-key 12f743c 01/32: Fix whitespace, ELPA Syncer, 2021/06/30
- [elpa] externals/which-key d8445fd 24/32: Try again to fix tests, ELPA Syncer, 2021/06/30
- [elpa] externals/which-key fffd3e5 07/32: Fix default of which-key-replacement-alist, ELPA Syncer, 2021/06/30
- [elpa] externals/which-key 8d6d81d 09/32: Expand get-keymap-bindings test,
ELPA Syncer <=
- [elpa] externals/which-key 6290c9e 26/32: Improve which-key-add-keymap-based-bindings, ELPA Syncer, 2021/06/30
- [elpa] externals/which-key 063b867 18/32: Fix github action, ELPA Syncer, 2021/06/30
- [elpa] externals/which-key 28f386c 25/32: Fix key sort order functions, ELPA Syncer, 2021/06/30
- [elpa] externals/which-key 11471fb 21/32: Add install python step to github action, ELPA Syncer, 2021/06/30
- [elpa] externals/which-key e236920 14/32: Merge branch 'alt-get-bindings', ELPA Syncer, 2021/06/30
- [elpa] externals/which-key 7cfbf8c 23/32: Turn off fail-fast in github action, ELPA Syncer, 2021/06/30
- [elpa] externals/which-key eb5a2e3 28/32: Clean up some docstrings, ELPA Syncer, 2021/06/30
- [elpa] externals/which-key cd0c48c 29/32: Clarify usage of keymap replacements in docstrings and README, ELPA Syncer, 2021/06/30
- [elpa] externals/which-key 27d9fec 32/32: Fix compiler warnings, ELPA Syncer, 2021/06/30
- [elpa] externals/which-key 4c27fc0 30/32: Improve which-key-add-keymap-based-replacements., ELPA Syncer, 2021/06/30