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

Revert "Add contract for run-tests."

Browse Source 
Related to PR 13936.

This reverts commit 032e1ebf55.
This commit is contained in:
Ryan Culpepper 2013-07-30 11:11:36 -04:00
parent 25aed0721a
commit 35df1e2654
1 changed files with 3 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/rackunit/text-ui.rkt
View File

@ -30,7 +30,6 @@
(require racket/match (require racket/match
racket/pretty racket/pretty
racket/contract
"private/base.rkt" "private/base.rkt"
"private/counter.rkt" "private/counter.rkt"
"private/format.rkt" "private/format.rkt"
@ -40,15 +39,10 @@
"private/monad.rkt" "private/monad.rkt"
"private/hash-monad.rkt" "private/hash-monad.rkt"
"private/name-collector.rkt" "private/name-collector.rkt"
"private/text-ui-util.rkt" "private/text-ui-util.rkt")
"private/test.rkt")
(provide/contract (provide run-tests
[run-tests (((or/c test-case? test-suite?)) display-context
((or/c 'quiet 'normal 'verbose))
. ->* . exact-nonnegative-integer?)])
(provide display-context
display-exn display-exn
display-summary+return display-summary+return
display-ticker display-ticker