added proper error exit code
svn: r9749
This commit is contained in:
parent
44e73c735f
commit
1db7e0604b
|
@ -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]))
|
||||
|
|
Loading…
Reference in New Issue
Block a user