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

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

@ -21,8 +21,11 @@
(define (hash2-proc a h) (define (hash2-proc a h)
(hash2 (tuple-ref a) h))]) (hash2 (tuple-ref a) h))])
;; ok if these don't raise unbound id errors (module+ test
(write (tuple 5)) (require rackunit racket/port)
(equal? (tuple 5) (tuple 5))
(equal-hash-code (tuple 5)) ;; ok if these don't raise unbound id errors
(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 "defaults.rkt" test)
(submod "errors.rkt" test) (submod "errors.rkt" test)
(submod "fallbacks.rkt" test) (submod "fallbacks.rkt" test)
(submod "base-interfaces.rkt" test)
"syntax-errors.rkt" "syntax-errors.rkt"
"base-interfaces.rkt"
"contract.rkt" "contract.rkt"
"from-unstable.rkt" "from-unstable.rkt"
"poly-contracts.rkt" "poly-contracts.rkt"