[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master e2e63dc: Give more information in a bytecomp test f
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] master e2e63dc: Give more information in a bytecomp test failure |
Date: |
Wed, 12 Jun 2019 19:49:22 -0400 (EDT) |
branch: master
commit e2e63dc3f062ec3dee56f003efb3e093b56692d4
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>
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 6fe7f5b..86cf2ed 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master e2e63dc: Give more information in a bytecomp test failure,
Glenn Morris <=