mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

; Fix simple-tests as fallout of last change

Browse source 
* 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
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
test/lisp/simple-tests.el
View file

@ -126,7 +126,12 @@ mark there."
(should (equal (execute-extended-command--shorter (should (equal (execute-extended-command--shorter
"display-line-numbers-mode" "display-line-numbers-mode"
"display-line") "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 () (ert-deftest simple-execute-extended-command--describe-binding-msg ()
(let ((text-quoting-style 'grave)) (let ((text-quoting-style 'grave))
@ -1093,6 +1098,7 @@ See Bug#21722."
;;; Tests for `kill-whole-line' ;;; Tests for `kill-whole-line'
(declare-function org-fold-hide-sublevels "org-fold" (levels))
(ert-deftest kill-whole-line-invisible () (ert-deftest kill-whole-line-invisible ()
(cl-flet ((test (kill-whole-line-arg &rest expected-lines) (cl-flet ((test (kill-whole-line-arg &rest expected-lines)
(ert-info ((format "%s" kill-whole-line-arg) :prefix "Subtest: ") (ert-info ((format "%s" kill-whole-line-arg) :prefix "Subtest: ")