From cbd52a953656e85a7f7864a5a0af6a10b5bb66b9 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Wed, 10 Jul 2013 11:55:27 -0400 Subject: [PATCH] Avoid output in generics tests. --- .../racket-test/tests/generic/base-interfaces.rkt | 13 ++++++++----- .../racket-pkgs/racket-test/tests/generic/tests.rkt | 2 +- 2 files changed, 9 insertions(+), 6 deletions(-) diff --git a/pkgs/racket-pkgs/racket-test/tests/generic/base-interfaces.rkt b/pkgs/racket-pkgs/racket-test/tests/generic/base-interfaces.rkt index 12f5e9a0e2..43c1a3e568 100644 --- a/pkgs/racket-pkgs/racket-test/tests/generic/base-interfaces.rkt +++ b/pkgs/racket-pkgs/racket-test/tests/generic/base-interfaces.rkt @@ -21,8 +21,11 @@ (define (hash2-proc a h) (hash2 (tuple-ref a) h))]) -;; ok if these don't raise unbound id errors -(write (tuple 5)) -(equal? (tuple 5) (tuple 5)) -(equal-hash-code (tuple 5)) -(equal-secondary-hash-code (tuple 5)) +(module+ test + (require rackunit racket/port) + + ;; ok if these don't raise unbound id errors + (check-equal? (with-output-to-string (lambda () (write (tuple 5)))) "#0=#0#") + (check-equal? (tuple 5) (tuple 5)) + (check-equal? (equal-hash-code (tuple 5)) 53) + (check-equal? (equal-secondary-hash-code (tuple 5)) 44)) diff --git a/pkgs/racket-pkgs/racket-test/tests/generic/tests.rkt b/pkgs/racket-pkgs/racket-test/tests/generic/tests.rkt index 916d130c53..19a3330d4d 100644 --- a/pkgs/racket-pkgs/racket-test/tests/generic/tests.rkt +++ b/pkgs/racket-pkgs/racket-test/tests/generic/tests.rkt @@ -11,8 +11,8 @@ (submod "defaults.rkt" test) (submod "errors.rkt" test) (submod "fallbacks.rkt" test) + (submod "base-interfaces.rkt" test) "syntax-errors.rkt" - "base-interfaces.rkt" "contract.rkt" "from-unstable.rkt" "poly-contracts.rkt"