added proper error exit code

svn: r9749
This commit is contained in:
Eli Barzilay 2008-05-08 17:42:37 +00:00
parent 44e73c735f
commit 1db7e0604b

View File

@ -103,14 +103,17 @@
(shutdown-listener)
(cond
[(not (null? jumped-out-tests))
(printf "Test suites ended with exns ~s\n" jumped-out-tests)]
[(null? failed-tests)
(printf "All tests passed.\n")]
[else
(debug-printf schedule "FAILED tests:\n")
(for-each (lambda (failed-test)
(debug-printf schedule " ~a // ~a\n"
(car failed-test) (cdr failed-test)))
failed-tests)])
(exit (cond
[(not (null? jumped-out-tests))
(printf "Test suites ended with exns ~s\n" jumped-out-tests)
1]
[(null? failed-tests)
(printf "All tests passed.\n")
0]
[else
(debug-printf schedule "FAILED tests:\n")
(for-each (lambda (failed-test)
(debug-printf schedule " ~a // ~a\n"
(car failed-test) (cdr failed-test)))
failed-tests)
1]))