aboutsummaryrefslogtreecommitdiffstats
path: root/test/src
diff options
context:
space:
mode:
authordickmao2021-11-02 15:28:20 +0100
committerLars Ingebrigtsen2021-11-02 15:28:52 +0100
commitff5327d72a68c149fb8ab210e21a1e7bb94fcc55 (patch)
tree0b965eeb0176a852608bab8e746c9651f8e087f7 /test/src
parent33263b610e46f3ce5f979dfbf0c8a314fc0e4f35 (diff)
downloademacs-ff5327d72a68c149fb8ab210e21a1e7bb94fcc55.tar.gz
emacs-ff5327d72a68c149fb8ab210e21a1e7bb94fcc55.zip
Update keymap-tests after recent changes
* test/src/keymap-tests.el (help--describe-vector/bug-9293-one-shadowed-in-range): Update tests for d530f3f9ff. (help--describe-vector/bug-9293-same-command-does-not-shadow): Update (bug#51567).
Diffstat (limited to 'test/src')
-rw-r--r--test/src/keymap-tests.el12
1 files changed, 6 insertions, 6 deletions
diff --git a/test/src/keymap-tests.el b/test/src/keymap-tests.el
index d3cb1a6a550..8e28faf2b26 100644
--- a/test/src/keymap-tests.el
+++ b/test/src/keymap-tests.el
@@ -323,12 +323,12 @@ commit 86c19714b097aa477d339ed99ffb5136c755a046."
323 (with-temp-buffer 323 (with-temp-buffer
324 (help--describe-vector (cadr orig-map) nil #'help--describe-command 324 (help--describe-vector (cadr orig-map) nil #'help--describe-command
325 t shadow-map orig-map t) 325 t shadow-map orig-map t)
326 (should (equal (buffer-string) 326 (should (equal (buffer-substring-no-properties (point-min) (point-max))
327 " 327 (string-replace "\t" "" "
328e foo 328e foo
329f foo (currently shadowed by `bar') 329f foo (currently shadowed by `bar')
330g .. h foo 330g .. h foo
331"))))) 331"))))))
332 332
333(ert-deftest help--describe-vector/bug-9293-same-command-does-not-shadow () 333(ert-deftest help--describe-vector/bug-9293-same-command-does-not-shadow ()
334 "Check that a command can't be shadowed by the same command." 334 "Check that a command can't be shadowed by the same command."
@@ -349,10 +349,10 @@ g .. h foo
349 (with-temp-buffer 349 (with-temp-buffer
350 (help--describe-vector (cadr range-map) nil #'help--describe-command 350 (help--describe-vector (cadr range-map) nil #'help--describe-command
351 t shadow-map range-map t) 351 t shadow-map range-map t)
352 (should (equal (buffer-string) 352 (should (equal (buffer-substring-no-properties (point-min) (point-max))
353 " 353 (string-replace "\t" "" "
3540 .. 3 foo 3540 .. 3 foo
355"))))) 355"))))))
356 356
357(ert-deftest keymap--key-description () 357(ert-deftest keymap--key-description ()
358 (should (equal (key-description [right] [?\C-x]) 358 (should (equal (key-description [right] [?\C-x])