From 2fe690b29ebe2c0df572b25f675051e3f0232d3f Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Thu, 3 Feb 2011 15:55:44 -0500 Subject: [PATCH] Try to kill the test thread after a minute, and exit after another minute. --- collects/tests/run-automated-tests.rkt | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/collects/tests/run-automated-tests.rkt b/collects/tests/run-automated-tests.rkt index de5ce084a1..6fb9427d53 100755 --- a/collects/tests/run-automated-tests.rkt +++ b/collects/tests/run-automated-tests.rkt @@ -73,7 +73,13 @@ (lambda () (sleep (* 60 timeout)) (echo "Timeout!") - (break-thread th))))) + (break-thread th) + (sleep 60) + (echo " A minute has passed, killing the test thread!") + (kill-thread th) + (sleep 60) + (echo " Another minute passed, aborting!") + (abort 1 "Goodbye."))))) (parameterize* ([exit-handler (lambda (n) (abort n "exit with error code ~a" n))] [current-namespace (make-base-empty-namespace)])