Add a "BOOM" string to the timeout message, otherwise the failure is

hard to find.
This commit is contained in:
Eli Barzilay 2011-02-11 14:31:07 -05:00
parent 25adab8cbb
commit b090dde2fb

View File

@ -75,10 +75,10 @@
(echo "Timeout!")
(break-thread th)
(sleep 60)
(echo " A minute has passed, killing the test thread!")
(echo "BOOM! A minute has passed, killing the test thread!")
(kill-thread th)
(sleep 60)
(echo " Another minute passed, aborting!")
(echo "Another minute passed, aborting!")
(abort 1 "Goodbye.")))))
(parameterize* ([exit-handler
(lambda (n) (abort n "exit with error code ~a" n))]