Set a maximum timeout for all tests in DrDr

2012-11-24 07:43:58 -07:00 · 2012-11-24 07:43:58 -07:00 · cf7e54bb9f
commit cf7e54bb9f
parent fd86928320
1 changed files with 9 additions and 2 deletions
--- a/collects/meta/drdr/plt-build.rkt
+++ b/collects/meta/drdr/plt-build.rkt
@ -335,7 +335,14 @@
  (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))