From 90a7dee79d0b99131ba97d05acc4bf8c9294fc15 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Sun, 13 Nov 2022 15:34:02 +0100 Subject: [PATCH] New test for execute-extended-command helper defun * test/lisp/simple-tests.el (simple-execute-extended-command--shorter): New test. --- test/lisp/simple-tests.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/test/lisp/simple-tests.el b/test/lisp/simple-tests.el index 97f425f6f48..acb417b80b8 100644 --- 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)))) + +;;; `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"))) + ;;; `transpose-sexps' (defmacro simple-test--transpositions (&rest body) -- 2.39.5