diff options
Diffstat (limited to 'tests/test-pearl-keymap.el')
| -rw-r--r-- | tests/test-pearl-keymap.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/tests/test-pearl-keymap.el b/tests/test-pearl-keymap.el index 0e12da3..25b63d9 100644 --- a/tests/test-pearl-keymap.el +++ b/tests/test-pearl-keymap.el @@ -90,11 +90,10 @@ Walks MAP looking for a labeled binding (\"label\" . COMMAND)." (should (eq 'pearl-delete-current-comment (lookup-key pearl-prefix-map (kbd "k c"))))) (ert-deftest test-pearl-prefix-map-url-group () - "The url group resolves open-in-browser and open-view; copy-url is not yet bound." + "The url group resolves open-in-browser, copy-url, and open-view." (should (eq 'pearl-open-current-issue (lookup-key pearl-prefix-map (kbd "u o")))) - (should (eq 'pearl-open-current-view-in-linear (lookup-key pearl-prefix-map (kbd "u v")))) - ;; "u c" (copy URL) lands with `pearl-copy-issue-url' - (should-not (lookup-key pearl-prefix-map (kbd "u c")))) + (should (eq 'pearl-copy-issue-url (lookup-key pearl-prefix-map (kbd "u c")))) + (should (eq 'pearl-open-current-view-in-linear (lookup-key pearl-prefix-map (kbd "u v"))))) (ert-deftest test-pearl-prefix-map-common-commands-bound-twice () "The most common commands resolve both directly and inside their group." |