Commit 2f36a082 authored by Glenn Morris's avatar Glenn Morris

Disable a portion of one doc-test

* test/src/doc-tests.el (doc-test-substitute-command-keys):
Disable component that fails twice in the past 5 weeks
due to changes in the minibuffer map.
parent 732e9427
Pipeline #3998 failed with stage
in 58 minutes and 27 seconds
......@@ -35,36 +35,39 @@
(should (string= (substitute-command-keys "foo \\=\\=")
"foo \\="))
;; Keymaps.
(should (string= (substitute-command-keys
"\\{minibuffer-local-must-match-map}")
"\
key binding
--- -------
C-g abort-recursive-edit
TAB minibuffer-complete
C-j minibuffer-complete-and-exit
RET minibuffer-complete-and-exit
ESC Prefix Command
SPC minibuffer-complete-word
? minibuffer-completion-help
<C-tab> file-cache-minibuffer-complete
<XF86Back> previous-history-element
<XF86Forward> next-history-element
<down> next-line-or-history-element
<next> next-history-element
<prior> switch-to-completions
<up> previous-line-or-history-element
M-v switch-to-completions
M-< minibuffer-beginning-of-buffer
M-n next-history-element
M-p previous-history-element
M-r previous-matching-history-element
M-s next-matching-history-element
"))
;; I don't see that this is testing anything useful.
;; AFAICS all it does it fail whenever someone modifies the
;; minibuffer map.
;;; (should (string= (substitute-command-keys
;;; "\\{minibuffer-local-must-match-map}")
;;; "\
;;; key binding
;;; --- -------
;;;
;;; C-g abort-recursive-edit
;;; TAB minibuffer-complete
;;; C-j minibuffer-complete-and-exit
;;; RET minibuffer-complete-and-exit
;;; ESC Prefix Command
;;; SPC minibuffer-complete-word
;;; ? minibuffer-completion-help
;;; <C-tab> file-cache-minibuffer-complete
;;; <XF86Back> previous-history-element
;;; <XF86Forward> next-history-element
;;; <down> next-line-or-history-element
;;; <next> next-history-element
;;; <prior> switch-to-completions
;;; <up> previous-line-or-history-element
;;;
;;; M-v switch-to-completions
;;;
;;; M-< minibuffer-beginning-of-buffer
;;; M-n next-history-element
;;; M-p previous-history-element
;;; M-r previous-matching-history-element
;;; M-s next-matching-history-element
;;;
;;; "))
(should (string=
(substitute-command-keys
"\\<minibuffer-local-must-match-map>\\[abort-recursive-edit]")
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment