Set a maximum timeout for all tests in DrDr
This commit is contained in:
parent
fd86928320
commit
cf7e54bb9f
|
@ -329,13 +329,20 @@
|
|||
(list "-t"
|
||||
(path->string*
|
||||
(build-path (drdr-directory) "set-browser.rkt"))))
|
||||
;; And go
|
||||
;; And go
|
||||
(define top-sema (make-semaphore 0))
|
||||
(notify! "Starting testing")
|
||||
(when (directory-exists? collects-pth)
|
||||
(test-directory collects-pth top-sema)
|
||||
(notify! "All testing scheduled... waiting for completion")
|
||||
(semaphore-wait top-sema))
|
||||
(sync
|
||||
top-sema
|
||||
(handle-evt
|
||||
(alarm-evt
|
||||
(+ (current-inexact-milliseconds)
|
||||
(* 1000 (* 2 (current-make-install-timeout-seconds)))))
|
||||
(λ _
|
||||
(kill-thread (current-thread))))))
|
||||
(notify! "Stopping testing")
|
||||
(stop-job-queue! test-workers)
|
||||
(stop-job-queue! gui-workers))
|
||||
|
|
Loading…
Reference in New Issue
Block a user