From: Glenn Morris <rgm@gnu.org>
Date: Wed, 12 Jun 2019 23:48:33 +0000 (-0700)
Subject: Give more information in a bytecomp test failure
X-Git-Tag: emacs-27.0.90~2587
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e2e63dc3f062ec3dee56f003efb3e093b56692d4;p=emacs.git

Give more information in a bytecomp test failure

* test/lisp/emacs-lisp/bytecomp-tests.el (test-suppression):
More informative failure messages.
---

diff --git a/test/lisp/emacs-lisp/bytecomp-tests.el b/test/lisp/emacs-lisp/bytecomp-tests.el
index 6fe7f5b571d..86cf2edec8b 100644
--- a/test/lisp/emacs-lisp/bytecomp-tests.el
+++ b/test/lisp/emacs-lisp/bytecomp-tests.el
@@ -698,7 +698,7 @@ literals (Bug#20852)."
       (unless match
         (error "%s" (buffer-string)))
       (goto-char (point-min))
-      (should (re-search-forward match nil t)))
+      (should (string-match match (buffer-string))))
     ;; And that it's gone now.
     (with-current-buffer byte-compile-log-buffer
       (let ((inhibit-read-only t))
@@ -708,7 +708,7 @@ literals (Bug#20852)."
         ,form))
     (with-current-buffer byte-compile-log-buffer
       (goto-char (point-min))
-      (should-not (re-search-forward match nil t)))
+      (should-not (string-match match (buffer-string))))
     ;; Also check that byte compiled forms are identical.
     (should (equal (byte-compile form)
                    (byte-compile