Commit 3be98ca5 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

Fix bytecomp-tests--warnings when $TMPDIR has a long name

* test/automated/bytecomp-tests.el (bytecomp-tests--warnings):
Allow the warning to begin on the 3rd, not only 2nd line, which
happens if temporary-file-directory has a very long name.
parent 8bc4185d
......@@ -376,8 +376,12 @@ Subtests signal errors if something goes wrong."
(with-current-buffer (get-buffer-create "*Compile-Log*")
(goto-char (point-min))
;; Should warn that mt--test1[12] are first used as functions.
(should (re-search-forward "my--test11:\n.*macro" nil t))
(should (re-search-forward "my--test12:\n.*macro" nil t))
;; The second alternative is for when the file name is so long
;; that pretty-printing starts the message on the next line.
(should (or (re-search-forward "my--test11:\n.*macro" nil t)
(re-search-forward "my--test11:\n.*:\n.*macro" nil t)))
(should (or (re-search-forward "my--test12:\n.*macro" nil t)
(re-search-forward "my--test12:\n.*:\n.*macro" nil t)))
(goto-char (point-min))
;; Should not warn that mt--test2 is not known to be defined.
(should-not (re-search-forward "my--test2" nil t))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment