From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 1 Oct 2021 13:25:05 +0000 (+0200)
Subject: Fix text in erts-run-test message
X-Git-Tag: emacs-29.0.90~3671^2~701
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d617e3388adb6403e546f037b47022746772daa2;p=emacs.git

Fix text in erts-run-test message

* lisp/progmodes/erts-mode.el (erts-run-test): New command and
keystroke.
---

diff --git a/lisp/progmodes/erts-mode.el b/lisp/progmodes/erts-mode.el
index 9d3d7698069..46b6a3a711b 100644
--- a/lisp/progmodes/erts-mode.el
+++ b/lisp/progmodes/erts-mode.el
@@ -176,7 +176,7 @@ will be prompted for one."
          (list (cons 'dummy t) (cons 'code test-function))
          (buffer-file-name))
       (:success (message "Test successful"))
-      (ert-test-failed (message "Test failure; expected text: \n%s"
+      (ert-test-failed (message "Test failure; result: \n%s"
                                 (substring-no-properties (cadr (cadr arg))))))))
 
 (defun erts-mode--goto-start-of-test ()