mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-13 16:38:14 +00:00
Code Issues Releases Activity

* test/automated/package-test.el (package-test-update-archives-async):

Browse Source 
Try to handle the test server script dying.
This commit is contained in:
Glenn Morris 2015-04-27 21:33:01 -04:00
parent 9c3e1e4e5b
commit b09deaa5a9
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
test/automated/package-test.el
View File

@ -361,10 +361,13 @@ Must called from within a `tar-mode' buffer."
(while package--downloads-in-progress (while package--downloads-in-progress
(accept-process-output nil 1)) (accept-process-output nil 1))
nil)) nil))
;; If the server process died, there's some non-Emacs problem.
;; Eg maybe the port was already in use.
(skip-unless (process-live-p process))
(goto-char (point-min)) (goto-char (point-min))
(should (should
(search-forward-regexp "^ +simple-single" nil t))) (search-forward-regexp "^ +simple-single" nil t)))
(kill-process process))))) (if (process-live-p process) (kill-process process))))))
(ert-deftest package-test-describe-package () (ert-deftest package-test-describe-package ()
"Test displaying help for a package." "Test displaying help for a package."