used stderr when tests fail

svn: r18226

original commit: 92717e0f0bd794ffa0955a5b128b716a5d6790b5
This commit is contained in:
Robby Findler 2010-02-20 17:16:54 +00:00
parent 3ce2bfd158
commit 946908120e

View File

@ -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]))