diff options
author | Glenn Morris <rgm@gnu.org> | 2019-06-16 17:35:36 -0700 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2019-06-16 17:37:21 -0700 |
commit | 78a609d454ecf2d8eaf12817fd04ce9869b49a5b (patch) | |
tree | 2c5c332910f12bdf3a59e00683b8713448d38e75 /test | |
parent | a95d614c96fbe224babc2a17d3f175ab26da003e (diff) | |
download | emacs-78a609d454ecf2d8eaf12817fd04ce9869b49a5b.tar.gz |
Disable filling of warnings in a bytecomp test
* test/lisp/emacs-lisp/bytecomp-tests.el (test-suppression):
Disable filling rather than working around it.
Diffstat (limited to 'test')
-rw-r--r-- | test/lisp/emacs-lisp/bytecomp-tests.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/test/lisp/emacs-lisp/bytecomp-tests.el b/test/lisp/emacs-lisp/bytecomp-tests.el index 289bd18a961..0c151e39169 100644 --- a/test/lisp/emacs-lisp/bytecomp-tests.el +++ b/test/lisp/emacs-lisp/bytecomp-tests.el @@ -691,13 +691,14 @@ literals (Bug#20852)." (byte-compile-log-buffer (generate-new-buffer " *Compile-Log*"))) ;; Check that we get a warning without suppression. (with-current-buffer byte-compile-log-buffer + (setq-local fill-column 9999) + (setq-local warning-fill-column fill-column) (let ((inhibit-read-only t)) (erase-buffer))) (test-byte-comp-compile-and-load t form) (with-current-buffer byte-compile-log-buffer (unless match (error "%s" (buffer-string))) - (setq match (replace-regexp-in-string " " "[ \n]+" match nil t)) (goto-char (point-min)) (should (string-match match (buffer-string)))) ;; And that it's gone now. |