New test for execute-extended-command helper defun

* test/lisp/simple-tests.el
(simple-execute-extended-command--shorter): New test.

diff --git a/test/lisp/simple-tests.el b/test/lisp/simple-tests.el
index 97f425f6f480781d3ffff59c21f55e5c7a925378..acb417b80b8f1a6b57f75a0626f28407c55136f2 100644 (file)
--- a/test/lisp/simple-tests.el
+++ b/test/lisp/simple-tests.el
@@ -72,6 +72,18 @@
     (insert "あ\nい\nう\nえ\nお\n")
     (should (= (count-lines (point) (point)) 0))))
 
+\f
+;;; `execute-extended-command'
+
+(ert-deftest simple-execute-extended-command--shorter ()
+  ;; This test can be flaky with completion frameworks other than the
+  ;; default, so just skip it in interactive sessions.
+  (skip-unless noninteractive)
+  (should (equal (execute-extended-command--shorter
+                  "display-line-numbers-mode"
+                  "display-line")
+                 "di-n")))
+
 \f
 ;;; `transpose-sexps'
 (defmacro simple-test--transpositions (&rest body)