allow 15 minutes for the tests

svn: r11175
This commit is contained in:
Eli Barzilay 2008-08-10 02:04:25 +00:00
parent ca1da6201b
commit 4632119a2a

View File

@ -56,7 +56,7 @@
(echo "BOOM!") ; used to find errors in nightly builds
(break)))
(thread (let ([th (current-thread)])
(lambda () (sleep 600) (echo "Timeout!") (break-thread th))))
(lambda () (sleep 900) (echo "Timeout!") (break-thread th))))
(parameterize* ([exit-handler
(lambda (n) (abort n "exit with error code ~a" n))]
[uncaught-exception-handler