From e2e63dc3f062ec3dee56f003efb3e093b56692d4 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 12 Jun 2019 16:48:33 -0700 Subject: [PATCH] Give more information in a bytecomp test failure * test/lisp/emacs-lisp/bytecomp-tests.el (test-suppression): More informative failure messages. --- test/lisp/emacs-lisp/bytecomp-tests.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 2.39.5