diff options
| author | Glenn Morris <rgm@gnu.org> | 2019-06-12 16:48:33 -0700 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2019-06-12 16:49:06 -0700 |
| commit | e2e63dc3f062ec3dee56f003efb3e093b56692d4 (patch) | |
| tree | 180f98a8cf96396d39a84216580dce25862073dc /test/lisp/emacs-lisp | |
| parent | d16b73fb4a9d87ec220444d220c6b45879806fc0 (diff) | |
| download | emacs-e2e63dc3f062ec3dee56f003efb3e093b56692d4.tar.gz emacs-e2e63dc3f062ec3dee56f003efb3e093b56692d4.tar.bz2 emacs-e2e63dc3f062ec3dee56f003efb3e093b56692d4.zip | |
Give more information in a bytecomp test failure
* test/lisp/emacs-lisp/bytecomp-tests.el (test-suppression):
More informative failure messages.
Diffstat (limited to 'test/lisp/emacs-lisp')
| -rw-r--r-- | test/lisp/emacs-lisp/bytecomp-tests.el | 4 |
1 files 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 |