procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Disable a portion of one doc-test

Browse source 
* 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.
This commit is contained in:
Glenn Morris 2019-11-09 19:38:05 -08:00
parent 732e942798
commit 2f36a08214
1 changed files with 33 additions and 30 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

63
test/src/doc-tests.el
View file

@ -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]")