procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Disable filling of warnings in a bytecomp test

Browse source 
* test/lisp/emacs-lisp/bytecomp-tests.el (test-suppression):
Disable filling rather than working around it.
This commit is contained in:
Glenn Morris 2019-06-16 17:35:36 -07:00
parent a95d614c96
commit 78a609d454
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

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