mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-12 09:28:24 +00:00
Code Issues Releases Activity

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

Browse Source 
* 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.
This commit is contained in:
Eli Zaretskii 2015-06-21 20:27:48 +03:00
parent 8bc4185d64
commit 3be98ca53b
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
test/automated/bytecomp-tests.el
View File

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