From 92717e0f0bd794ffa0955a5b128b716a5d6790b5 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 20 Feb 2010 17:16:54 +0000 Subject: [PATCH] used stderr when tests fail svn: r18226 --- collects/tests/framework/main.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/tests/framework/main.ss b/collects/tests/framework/main.ss index 5b10ada2c7..0f6c45696b 100644 --- a/collects/tests/framework/main.ss +++ b/collects/tests/framework/main.ss @@ -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]))