Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 10:27:41 +00:00
Code Issues Projects Releases Packages Wiki Activity

Give more information in a bytecomp test failure

Browse source 
* test/lisp/emacs-lisp/bytecomp-tests.el (test-suppression):
More informative failure messages.
This commit is contained in:
Glenn Morris 2019-06-12 16:48:33 -07:00
parent d16b73fb4a
commit e2e63dc3f0
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
test/lisp/emacs-lisp/bytecomp-tests.el
View file

@ -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