suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Avoid extraneous output from tests/generic/fallbacks.

Browse Source
This commit is contained in:
Carl Eastlund 2013-07-22 12:13:20 -04:00
parent 59ee9a227e
commit e6d2e2e6c2
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
pkgs/racket-pkgs/racket-test/tests/generic/fallbacks.rkt
View File

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