From da743d4a492ad810c05c54ad3d2a29fda18fc4cf Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 3 Nov 2009 18:27:00 +0000 Subject: [PATCH] changed test printout so that the summary is to stdout, not stderr svn: r16524 --- collects/redex/private/matcher-test.ss | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/collects/redex/private/matcher-test.ss b/collects/redex/private/matcher-test.ss index 0381752a57..e0a7340f3d 100644 --- a/collects/redex/private/matcher-test.ss +++ b/collects/redex/private/matcher-test.ss @@ -631,13 +631,13 @@ (cond [(= failures 0) - (fprintf (current-error-port) "matcher-test.ss: all ~a tests passed.\n" test-count)] + (printf "matcher-test.ss: all ~a tests passed.\n" test-count)] [else - (fprintf (current-error-port) "matcher-test.ss: ~a test~a failed.\n" - failures - (if (= failures 1) - "" - "s"))])) + (printf "matcher-test.ss: ~a test~a failed.\n" + failures + (if (= failures 1) + "" + "s"))])) ;; mk-hasheq : (listof (cons sym any)) -> hash-table ;; builds a hash table that has the bindings in assoc-list