diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/automated/package-test.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/test/automated/package-test.el b/test/automated/package-test.el index 4385ee0bd48..1f8f8ac3289 100644 --- a/test/automated/package-test.el +++ b/test/automated/package-test.el | |||
| @@ -361,10 +361,13 @@ Must called from within a `tar-mode' buffer." | |||
| 361 | (while package--downloads-in-progress | 361 | (while package--downloads-in-progress |
| 362 | (accept-process-output nil 1)) | 362 | (accept-process-output nil 1)) |
| 363 | nil)) | 363 | nil)) |
| 364 | ;; If the server process died, there's some non-Emacs problem. | ||
| 365 | ;; Eg maybe the port was already in use. | ||
| 366 | (skip-unless (process-live-p process)) | ||
| 364 | (goto-char (point-min)) | 367 | (goto-char (point-min)) |
| 365 | (should | 368 | (should |
| 366 | (search-forward-regexp "^ +simple-single" nil t))) | 369 | (search-forward-regexp "^ +simple-single" nil t))) |
| 367 | (kill-process process))))) | 370 | (if (process-live-p process) (kill-process process)))))) |
| 368 | 371 | ||
| 369 | (ert-deftest package-test-describe-package () | 372 | (ert-deftest package-test-describe-package () |
| 370 | "Test displaying help for a package." | 373 | "Test displaying help for a package." |