used stderr when tests fail
svn: r18226
This commit is contained in:
parent
ac2c537b8f
commit
92717e0f0b
|
@ -105,15 +105,15 @@
|
|||
|
||||
(exit (cond
|
||||
[(not (null? jumped-out-tests))
|
||||
(printf "Test suites ended with exns ~s\n" jumped-out-tests)
|
||||
(fprintf (current-error-port) "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")
|
||||
(fprintf (current-error-port) "FAILED tests:\n")
|
||||
(for-each (lambda (failed-test)
|
||||
(debug-printf schedule " ~a // ~a\n"
|
||||
(fprintf (current-error-port) " ~a // ~a\n"
|
||||
(car failed-test) (cdr failed-test)))
|
||||
failed-tests)
|
||||
1]))
|
||||
|
|
Loading…
Reference in New Issue
Block a user