diff options
| -rw-r--r-- | test/automated/bytecomp-tests.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/test/automated/bytecomp-tests.el b/test/automated/bytecomp-tests.el index f51710aa8c5..c65009cb1b0 100644 --- a/test/automated/bytecomp-tests.el +++ b/test/automated/bytecomp-tests.el | |||
| @@ -376,8 +376,12 @@ Subtests signal errors if something goes wrong." | |||
| 376 | (with-current-buffer (get-buffer-create "*Compile-Log*") | 376 | (with-current-buffer (get-buffer-create "*Compile-Log*") |
| 377 | (goto-char (point-min)) | 377 | (goto-char (point-min)) |
| 378 | ;; Should warn that mt--test1[12] are first used as functions. | 378 | ;; Should warn that mt--test1[12] are first used as functions. |
| 379 | (should (re-search-forward "my--test11:\n.*macro" nil t)) | 379 | ;; The second alternative is for when the file name is so long |
| 380 | (should (re-search-forward "my--test12:\n.*macro" nil t)) | 380 | ;; that pretty-printing starts the message on the next line. |
| 381 | (should (or (re-search-forward "my--test11:\n.*macro" nil t) | ||
| 382 | (re-search-forward "my--test11:\n.*:\n.*macro" nil t))) | ||
| 383 | (should (or (re-search-forward "my--test12:\n.*macro" nil t) | ||
| 384 | (re-search-forward "my--test12:\n.*:\n.*macro" nil t))) | ||
| 381 | (goto-char (point-min)) | 385 | (goto-char (point-min)) |
| 382 | ;; Should not warn that mt--test2 is not known to be defined. | 386 | ;; Should not warn that mt--test2 is not known to be defined. |
| 383 | (should-not (re-search-forward "my--test2" nil t)))) | 387 | (should-not (re-search-forward "my--test2" nil t)))) |