; Fix simple-tests as fallout of last change

* test/lisp/simple-tests.el
(simple-execute-extended-command--shorter): Fix test broken by new
kill-whole-line tests.  (Bug#65734)
This commit is contained in:
Eli Zaretskii 2024-06-27 11:37:15 +03:00
parent aa10d0c5ac
commit f475a1a254

View file

@ -126,7 +126,12 @@ mark there."
(should (equal (execute-extended-command--shorter
"display-line-numbers-mode"
"display-line")
"di-n")))
;; Depending on the tests performed and their order, we
;; could have loaded Dired, which defines commands
;; starting with "dir".
(if (featurep 'dired)
"dis-n"
"di-n"))))
(ert-deftest simple-execute-extended-command--describe-binding-msg ()
(let ((text-quoting-style 'grave))
@ -1093,6 +1098,7 @@ See Bug#21722."
;;; Tests for `kill-whole-line'
(declare-function org-fold-hide-sublevels "org-fold" (levels))
(ert-deftest kill-whole-line-invisible ()
(cl-flet ((test (kill-whole-line-arg &rest expected-lines)
(ert-info ((format "%s" kill-whole-line-arg) :prefix "Subtest: ")