From e6d2e2e6c2464c992249eecd1b537975e7eee844 Mon Sep 17 00:00:00 2001 From: Carl Eastlund Date: Mon, 22 Jul 2013 12:13:20 -0400 Subject: [PATCH] Avoid extraneous output from tests/generic/fallbacks. --- .../racket-test/tests/generic/fallbacks.rkt | 20 ++++++++++--------- 1 file changed, 11 insertions(+), 9 deletions(-) diff --git a/pkgs/racket-pkgs/racket-test/tests/generic/fallbacks.rkt b/pkgs/racket-pkgs/racket-test/tests/generic/fallbacks.rkt index f424e29d9a..6de8824e60 100644 --- a/pkgs/racket-pkgs/racket-test/tests/generic/fallbacks.rkt +++ b/pkgs/racket-pkgs/racket-test/tests/generic/fallbacks.rkt @@ -108,7 +108,7 @@ (generic-wrapped (make-peano n))) (module+ test - (require rackunit rackunit/text-ui) + (require rackunit rackunit/text-ui racket/port) (define max-n 10) @@ -123,11 +123,13 @@ (test-case (number->string i) (check-equal? (is-odd? (make i)) (odd? i))))))) - (run-tests - (test-suite "fallbacks" - (tests "built-in" values) - (tests "peano" make-peano) - (tests "binary" make-binary) - (tests "parity" make-parity) - (tests "wrapped" make-wrapped) - (tests "generic-wrapped" make-generic-wrapped)))) + (parameterize {[current-output-port (open-output-nowhere)]} + (run-tests + (test-suite "fallbacks" + (tests "built-in" values) + (tests "peano" make-peano) + (tests "binary" make-binary) + (tests "parity" make-parity) + (tests "wrapped" make-wrapped) + (tests "generic-wrapped" make-generic-wrapped))) + (void)))