diff options
Diffstat (limited to 'tests/test-pearl-keymap.el')
| -rw-r--r-- | tests/test-pearl-keymap.el | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/test-pearl-keymap.el b/tests/test-pearl-keymap.el index 49dbd31..6107d9f 100644 --- a/tests/test-pearl-keymap.el +++ b/tests/test-pearl-keymap.el @@ -221,5 +221,17 @@ literal my-open-issues fetch stays at f o (they are no longer the same command). (pearl--maybe-enable-mode) (should-not pearl-mode))) +(ert-deftest test-pearl-views-map-shaping-bindings () + "The views sub-map binds the view-shaping commands: sort, group, reverse order." + (should (eq 'pearl-set-sort (lookup-key pearl-views-map (kbd "s")))) + (should (eq 'pearl-set-grouping (lookup-key pearl-views-map (kbd "g")))) + (should (eq 'pearl-toggle-sort-order (lookup-key pearl-views-map (kbd "r")))) + (should (string= "sort view" + (test-pearl-keymap--label-of pearl-views-map 'pearl-set-sort))) + (should (string= "group view" + (test-pearl-keymap--label-of pearl-views-map 'pearl-set-grouping))) + (should (string= "reverse order" + (test-pearl-keymap--label-of pearl-views-map 'pearl-toggle-sort-order)))) + (provide 'test-pearl-keymap) ;;; test-pearl-keymap.el ends here |