suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Try to kill the test thread after a minute, and exit after another minute.

Browse Source 
(cherry picked from commit 2fe690b29e)
This commit is contained in:
Eli Barzilay 2011-02-03 15:55:44 -05:00
parent 968eb41475
commit cc4c928274
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/tests/run-automated-tests.rkt
View File

@ -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)])