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

Avoid output in generics tests.

Browse Source
This commit is contained in:
Vincent St-Amour 2013-07-10 11:55:27 -04:00
parent 52e09c60c3
commit cbd52a9536
2 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
pkgs/racket-pkgs/racket-test/tests/generic/base-interfaces.rkt
View File

@ -21,8 +21,11 @@
(define (hash2-proc a h)
(hash2 (tuple-ref a) h))])
(module+ test
(require rackunit racket/port)
;; 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))
(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))

2
pkgs/racket-pkgs/racket-test/tests/generic/tests.rkt
View File

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